perl help

Tinku · 09-18-2004, 01:21 PM

I wrote the following piece of code.
I want to modify it such that i can give the new_msg from outside the file,changing everytime , something like an argument.
how to do this?
i am new to perl

tia
tinku

Code:

#!/usr/bin/perl

  $new_msg = "My msg text here";

 open (msg, ">>msg.txt") || die ("Could not open file. $!");
 print msg ($new_msg);
 close (msg);

mirradric · 09-18-2004, 01:47 PM

can't really remember but it should be in the @ARGV array/list

CroMagnon · 09-18-2004, 01:51 PM

$new_msg = @ARGV[0]

Vookimedlo · 09-18-2004, 01:57 PM

Code:

#!/usr/bin/perl
$new_msg = shift;
open (msg, ">>msg.txt") || die "Could not open file. $!";
print msg $new_msg."\n";
close (msg);

run it like this:
./t.pl 'Vookimedlo is watching you!'

Tinku · 09-18-2004, 11:03 PM

thnx guys,both the 2 methods r working

thnx