passed params as filename

[Andrew]

Hello, i'm new to this group and have a quick question, I tried to
search on this topic but was unsucessful.
I'm tring to use a parameter to name a file, actually multiple
parameters, and perl doesn't seem to like it. Can anyone tell me what I
am doing wrong?

my $employee = param('employee');
my $filename = "$employee.txt";


# if file exists then append to file
if (-e $filename) {
open(TIMELOG, ">>./$filename") || die "Can't open file.\n";

[code]

Thanks for your time.

Andrew

 

[Jürgen Exner]

Hello, i'm new to this group and have a quick question, I tried to
search on this topic but was unsucessful.
I'm tring to use a parameter to name a file, actually multiple
parameters, and perl doesn't seem to like it. Can anyone tell me
what I am doing wrong?

my $employee = param('employee');[/QUOTE]

You are looking for the variable @ARGV, not for the function param().
From perldoc perlvar:
@ARGV   The array @ARGV contains the command-line arguments intended for
the script. [...]

my $employee = $ARGV[0];

Or more perlish (will remove the argument from the argument list):
my $employee = shift;  #shift() defaults to @ARGV outside of the lexical
scope of subroutines

jue