Jack Gates schreef:
> my $oldfile = $ARGV[0]; my ($oldfile) = $ARGV[0] =~ /^([a-z]+)$/; die "bad old filename" unless $oldfile; > my $newfile = $ARGV[1]; my ($newfile) = $ARGV[1] =~ /^([a-z]+)$/; die "bad new filename" unless $newfile; > open(OF, $oldfile) open my $OF, "<", $oldfile or die "$oldfile: $!"; > open(NF, ">$newfile"); open my $NF, ">", $newfile or die "$newfile: $!"; (untested) -- Affijn, Ruud "Gewoon is een tijger." -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
