Joined
Last Seen
0 Reputation Points
Unknown Quality Score
No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
0 Endorsements
Ranked #54.9K
|
How to take the maximum digits file linked with the folder using perl? my $location = $output_dir; print $location; open LOGFILE, $location; my $first_line = 1; #print $first_line; my $max_id; while (<LOGFILE>) { if (/rev_(\d)+/) { if ($first_line) { $first_line = 0; $max_id = $1; } else { $max_id = …
|
|
|
sub runDir($$); sub runDir($$) { my $prefix = shift @_; my $dir = shift @_; opendir(DIR, $dir) or die $!; my @entries = readdir(DIR); close(DIR); foreach my $file (@entries) { next if ($file =~ /^\.+$/); if ( -d $dir . '/' . $file) { runDir($prefix . $file .'_', $dir . … |