this eliminates all arrays except for the one, amd it should only be slightly trivial to setup the extraction process from this since i got full path, filename, md5, filesize, blank spaces, KB or MB. to bad i didnt think of this 3 or 4 days ago <.< cz i dont think its gonna get to much lazier than this lol. everything i need is right in that text file :) here is the new file and the other files are somewhere else in this thread;use warnings; use strict; use diagnostics; open (my $file, '<', $ARGV[0]) || die "lifes great when your a noob pr +ogrammer :) $!" my @array; foreach my $line (<$file>) { push( @array, $line ); } foreach my $element (@array) { if ( $element =~ "Path" ) { print "\n$element"; } elsif ( $element =~ "KB" || $element =~ "MB" ) { my ( $md5, $blank, $file, $filesize, $bits ) = split /\s/, $el +ement; print "$md5 $blank $file $filesize $bits\n"; } }
In reply to Re^8: directories and sub directories and copying or moving hundereds or thousands of files :)
by james28909
in thread directories and sub directories and copying or moving hundereds or thousands of files :)
by james28909
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |