Hi Tom,
On 2/2/07, Tom Phoenix <[EMAIL PROTECTED]> wrote:
> open DATA, "$arg";
You should really check the return value from open, in case it didn't
work. And what are those quote marks doing?
LOL, thats me trying to see if that was the problem, it didn't make a
difference this time so I left them in... out now!
> $newname = "$lead-$refno$end";
This looks like it's around line 15 and you're using some values in a
string; did you assign values to these variables? You can even use
assertions, so you'll know which one was missing:
die "Oops: no \$lead" unless defined $lead;
die "Oops: no \$refno" unless defined $refno;
die "Oops: no \$end" unless defined $end;
Yep, there seems to be a problem with my sub, $lead and $refno are not
getting asigned.
the lines have spaces infront of the Ref.: and Lead: but not after, do
you think this is the problem?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
