David Moreno Garza schreef:
> open FILE, 'H:\My Music\folderlist.txt';
> open DEST, '> H:\My Music\artists.txt';
> foreach my $line(readline FILE) {
> chomp;
> print DEST $1."\n" if $line =~ /<DIR>\s*(.*)$/;
> }
> close FILE;
> close DEST;
Wouldn't it be great if, especially on this list, such "examples" would
be written more like:
#!/usr/bin/perl
use strict;
use warnings;
my $fpath = 'H:/My Music';
my $fname_in = "$fpath/folderlist.txt";
my $fname_out = "$fpath/artists.txt";
open my $fh_in, '<', $fname_in
or die "Error opening '$fname_in' for reading: $!";
open my $fh_out, '>', $fname_out
or die "Error opening '$fname_out' for writing: $!";
while ( <$fh_in> ) {
print $fh_out "$1\n" if /<DIR>\s+(.+)/;
}
close $fh_out or die "Error closing '$fname_out': $!";
close $fh_in or die "Error closing '$fname_in': $!";
__END__
--
Affijn, Ruud
"Gewoon is een tijger."
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
