This worked. I forgot about chomping that. Thanks.
-Original Message-
From: Jeff 'japhy' Pinyan [mailto:[EMAIL PROTECTED]
Sent: Thursday, August 14, 2003 1:09 PM
To: Wert, Nathaniel J
Cc: [EMAIL PROTECTED]
Subject: Re: Chomping in wrong place...
On Aug 14, Wert, Nathan
On Aug 14, Wert, Nathaniel J said:
>> open INPUT, $file or die "\n\nCan't open file $INPUT: $!\n";
That should be $file in your error message.
>> while () {
>> $node = $_;
Why don't you chomp $node here? It will have a newline at the end.
while (my $node = ) {
chomp $node;
system
> Here is the basis of the script:
>
> #!/usr/bin/perl -w
>
> my $file;
> my $db;
> my $node;
>
> print "Prompt user for file name";
> chomp($file = );
>
> print "Prompt user for database";
> chomp($db = );
>
> open INPUT, $file or die "\n\nCan't open file $
