After getting some sleep (definitely the smartest thing I did) and (then
looking at your code sample again)
On Thursday 18 September 2008 04:28:07 am Dr.Ruud wrote:
> > my $oldfile = $ARGV[0];
After I adjusted the RE content /^([ in here ]+)$/
> my ($oldfile) = $ARGV[0] =~ /^([a-z]+)$/;
> die "bad old filename" unless $oldfile;
>
> > my $newfile = $ARGV[1];
and adjusted this RE
> my ($newfile) = $ARGV[1] =~ /^([a-z]+)$/;
> die "bad new filename" unless $newfile;
and made some other required changes in my code
down stream here
while (my $line = <$OF>){
nothing changed between the line above/below
print $NF $line;
}
close($OF);
close($NF);
This code finally worked.
Thank you for the help
and I need to get some sleep again.
--
Silverfox
There are those that will think me rude.
Do you want someone to do it for you?
They will be glad to, if you pay them.
To get free help one must show evidence
that one has made an honest effort to
find/figure out the answer first.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
