You need tp pass starting directory to argument to your program "prog.pl
c:\"
might also consider ...
> #!/bin/perl
>
> use strict;
> use Cwd;
>
> my ($startpath, $cwd, $startat, $list);
>
> $startpath = $ARGV[0];
> $cwd = getcwd();
>
> chdir $startpath;
> $startpath = getcwd();
>
> sub godown($@
Take a look at Log::Log4Perl package. A more powerful kind of log objects
(known as Loggers) are shared by name across multiple modules making
unnecessary to pass them as parameters.
A good overview can be read at
http://www.perl.com/pub/a/2002/09/11/log4perl.html
Regards,
Adriano
On Tue, 14
Hello!
Toby Stuart wrote:
read the manpage about the 'ref' function
perldoc -f ref
Wow. Thanks a lot. You have just saved my life :)
Now I won't need to hack with regexp's.
Thank you.
--
Greetings,
Balázs
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL
> -Original Message-
> From: OROSZI Balázs [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, January 15, 2003 10:07 AM
> To: [EMAIL PROTECTED]
> Subject: determining variable types
>
>
> Hello!
>
> Is it possible to get the type of a variable at run time
> (hash, array, scalar)?
> Suppose
Hello!
Is it possible to get the type of a variable at run time (hash, array, scalar)?
Suppose I have $var which may be a ref to a hash, or a ref to an array or a
scalar (maybe a ref to it).
Should I try to hack it out from the address
(the weird thing, for example ARRAY(0x...), SCALAR(0x...))?
O
Hi All,
Is there any easier way to share a common log file (filehandle) among many
functions in a script (using strict) other than by passing a reference to it
to each function in question? Worth the work, just tedious..
Thanks,
Mark
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional
Actually, I would recommend Win32::FileOp over Win32::Lanman if you aren't
familiar with it. It's a very good but very large module, and it's worth
taking some time with the documentation before you try implementing it right
away. Once you get used to the way they manage data structures, it's ve
On Wed, 8 Jan 2003, Jenda Krynicky wrote:
>From: David Winters <[EMAIL PROTECTED]>
>> I'm trying to write a script that'll check to see if another machine
>> is pingable, and perform one of two actions based on the result. I
>> found the following isPingable() subroutine on a website (that is now
Jenda Krynicky wrote:
> ...
> my $outString = join(',',
> map {$fields{$_}} qw(SelectCity Workshop1 Workshop2 Salutation
> FirstName LastName Title CompanyName
> CompanyAddress Suburb State
> PostCode PhoneNumber Mobile EmailAddress)
> );
Or a hash slice:
On Tue, Jan 14, 2003 at 10:57:13PM +0100, Jenda Krynicky wrote:
> From: "Johnstone, Colin" <[EMAIL PROTECTED]>
> >
> > my $outString;
> > $outString = "";
> > $outString .= $fields{'SelectCity'} . ",";
> > $outString .= $fields{'Workshop1'} . ",";
> > $outString .= $fields{'Workshop2'} . ",";
> >
From: Timothy Johnson <[EMAIL PROTECTED]>
> Network paths that require a logon is a tougher one. On Windows I
> would probably just map the drive. If you want to go down that road
> you can check out Win32::Lanman's NetUseAdd() function. It's a huge
> module, but it has just about every Win32 ne
From: "Johnstone, Colin" <[EMAIL PROTECTED]>
> Is a CSV a comma delimited list. If so when creating a CSV how does
> one cope with fields that have commas in them.
>
> An address filed for example could be written suite 2, lvl 3.
>
> Do you write the field names out with quotes around them?
Yes
Johnstone, Colin wrote:
> Gidday all,
>
> Is a CSV a comma delimited list. If so when creating a CSV how does
> one cope with fields that have commas in them.
>
> An address filed for example could be written suite 2, lvl 3.
>
> Do you write the field names out with quotes around them?
>
>
>
Gidday all,
Is a CSV a comma delimited list. If so when creating a CSV how does one cope with
fields that have commas in them.
An address filed for example could be written suite 2, lvl 3.
Do you write the field names out with quotes around them?
my $filename;
$filename = "/home/bdweb8083m
You would have to implement multipart messaging on top of Net::SMTP,
which is a low-level interface. If you want something higher level,
check out MIME::Lite, it's nice.
George
On Tuesday, January 14, 2003, at 03:09 PM, Paul Kraus wrote:
I did check cpan and there where many email modules.
Because the program needs to accept input from the user. :(
- Original Message -
From: "R. Joseph Newton" <[EMAIL PROTECTED]>
To: "Todd Wade" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Monday, January 13, 2003 9:29 PM
Subject: Re: Printing Output To Screen.
> Why dont you pipe you
That's something I might not be able to help you with. I think that in
order to open a directory on a *NIX box, you would have to use an NFS mount
or some other way of mounting the remote volume on your machine, but I'm not
remotely a UNIX guru.
Network paths that require a logon is a tougher
I did check cpan and there where many email modules. So I thought I
would ask the collective and see which ones people like to use.
NET::SMTP seem like it would work but I don't see how you would send
attachments.
> -Original Message-
> From: Ben Siders [mailto:[EMAIL PROTECTED]]
> Sent:
From: "Paul Kraus" <[EMAIL PROTECTED]>
> What does everyone recommend for an email module.
>
> I am setting up a server to email alerts to me. We are not using a
> local mail server. I would like to able to compose mail that has
> attachments and if possible embedded html.
Didn't I see this quest
If not for the need for attachments, I'd suggest using the 'mail' shell
command via the ` ` operator. I don't know how to attach files using
'mail', for all I know it may not even be possible. This may be a
stupid question, but have you looked at the modules on CPAN yet?
Paul Kraus wrote:
Wh
This worked great on my dev machine (win xp pro) but when I sent it to
my sco box (openserver 5) it does not understand the UNC paths.
Ideas?
> -Original Message-
> From: Paul Kraus [mailto:[EMAIL PROTECTED]]
> Sent: Tuesday, January 14, 2003 2:20 PM
> To: 'Timothy Johnson'; 'Perl'
> Sub
You are correct, my code does not explicitly right to STDOUT. This was an
easy solution for me. All I had to do was redirect STDOUT to a file and
this worked perfectly. Here is what I used.
Open(STDOUT,"$filename");
I just added this to my script, and called my subs as normal and voila.
Tha
What does everyone recommend for an email module.
I am setting up a server to email alerts to me. We are not using a local
mail server. I would like to able to compose mail that has attachments
and if possible embedded html.
Paul Kraus
Network Administrator
PEL Supply Company
216.267.5775 Voice
2
> Ben Siders wrote:
> > I'm not 100% confident that'll work as written. I *think*
> that if the
> > open is successful then the die will never execute and that
> 'if' will
> > never get checked. If the 'open' is successful on writing to a
> > non-existant file, I'm not sure if this solution
How do I handle network paths that require a login ?
> -Original Message-
> From: Timothy Johnson [mailto:[EMAIL PROTECTED]]
> Sent: Tuesday, January 14, 2003 2:14 PM
> To: 'Paul Kraus'; Perl
> Subject: RE: Directory Handle - Network Math NOT mapped
>
>
>
> It shouldn't be a problem.
> I'm not 100% confident that'll work as written. I *think*
> that if the
> open is successful then the die will never execute and that 'if' will
> never get checked. If the 'open' is successful on writing to a
> non-existant file, I'm not sure if this solution will correct it.
>
Ok how abou
> Why not:
>
> (!(-e $file)) ? die "File doesn't exist: $@\n" : open
> (...$file...) or die "File exists but still can't open: $@\n";
>
I don't know. why not? Your idea looks good to me. I was trying to give
him a quick one liner but missed the obvious yet again.
I think I need a vacation. :)
Ben Siders wrote:
> I'm not 100% confident that'll work as written. I *think* that if the
> open is successful then the die will never execute and that 'if' will
> never get checked. If the 'open' is successful on writing to a
> non-existant file, I'm not sure if this solution will correct it.
>
It shouldn't be a problem. Just use the UNC path.
opendir(DIR,"//computer/share/folder") || die "could not open folder!";
opendir(DIR,"computer\\share\\folder") || die "could not open folder!";
-Original Message-
From: Paul Kraus [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, January 14,
Why not:
(!(-e $file)) ? die "File doesn't exist: $@\n" : open (...$file...) or
die "File exists but still can't open: $@\n";
> I'm not 100% confident that'll work as written. I *think*
> that if the
> open is successful then the die will never execute and that 'if' will
> never get checked.
I'm not 100% confident that'll work as written. I *think* that if the
open is successful then the die will never execute and that 'if' will
never get checked. If the 'open' is successful on writing to a
non-existant file, I'm not sure if this solution will correct it.
Dan Muey wrote:
Open (.
Rob Richardson wrote:
> Greetings!
>
> If I remember correctly, in either Visual C++ or Visual Basic (or
> both) there is a way to call open() (or its equivalent) for appending
> and to have it fail if the file doesn't previously exist. Is there a
> way to do that in Perl?
>
> Merely curious -- I'
Open (...$file ...) || die "Oops I died : $@" if (-e $file);
Something like that should work
Dan
> -Original Message-
> From: Rob Richardson [mailto:[EMAIL PROTECTED]]
> Sent: Tuesday, January 14, 2003 12:52 PM
> To: [EMAIL PROTECTED]
> Subject: RE: Where do die messages go?
>
>
> Gre
Greetings!
If I remember correctly, in either Visual C++ or Visual Basic (or both)
there is a way to call open() (or its equivalent) for appending and to
have it fail if the file doesn't previously exist. Is there a way to
do that in Perl?
Merely curious -- I'm not likely to need this in the nea
how can I create a directory handle for network path? is it possible
without having a mapped drive?
Paul Kraus
Network Administrator
PEL Supply Company
216.267.5775 Voice
216-267-6176 Fax
www.pelsupply.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROT
John Dunn wrote:
> Actually I do ( typo in email)
>
> open(MYFILE, ">$myfile") || die "Cannot open file";
>
> It still does not display my message
>
i notice in your error message you said "Cannot open file" but
in your open statement you are trying to open the file for writting.
so even if $m
Ben Siders said:
> This is perfect. The input is coming from a CPAN module so I'm fairly
> confident that the number of entries will be even, but checking is
> always a good idea.
If you have warnings on, Perl will whine if it's not.
>>You may want to check first that the list has an even numb
This is perfect. The input is coming from a CPAN module so I'm fairly
confident that the number of entries will be even, but checking is
always a good idea.
You may want to check first that the list has an even number of entries:
die "Invalid parameters" if @_ % 2;
but after that it's just
sub BlaBla(){
my @inp=@_
while ($#inp > 0){
my $key = shift;
my $value = shift;
$myHash{$key} = $value;
}
}
Sign L Rakhitha Malinda Karunarathne Web :- rakhitha.cjb.net Email
:[EMAIL PROTECTED] Rakhitha Malinda Karunarathne.
- Original Message -
From: "Ben Siders" <[EMAIL PROTECTED]
> -Original Message-
> From: Rob Dixon [mailto:[EMAIL PROTECTED]]
> Sent: Tuesday, January 14, 2003 11:17 AM
> To: [EMAIL PROTECTED]
> Subject: Re: Question about creating a hash of key-value
> pairs based on sub parameters.
>
>
> Dan
>
> "Dan Muey" <[EMAIL PROTECTED]> wrote in messa
Dan
"Dan Muey" <[EMAIL PROTECTED]> wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
> This may work :
>
> &monkey("key","value","key1","value1");
>
> sub monkey {
> %new_hash = ();
> %new_hash = $_[0];
$_[0] is 'key', so this will assign %new_hash = ( key => undef );
You want '%
Hi Ben
"Ben Siders" <[EMAIL PROTECTED]> wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
> I have a subroutine that will receive parameters as follows:
>
> key1, value1, key2, value2, key3, value3, ... keyN, valueN
>
> I want to create a hash of key1 => value1, key2 => value2, ... , k
This may work :
&monkey("key","value","key1","value1");
sub monkey {
%new_hash = ();
%new_hash = $_[0];
return %new_hash;
}
Dan
> -Original Message-
> From: Ben Siders [mailto:[EMAIL PROTECTED]]
> Sent: Tuesday, January 14, 2003 10:57 AM
> To: [EMAIL PROTECTED]
I have a subroutine that will receive parameters as follows:
key1, value1, key2, value2, key3, value3, ... keyN, valueN
I want to create a hash of key1 => value1, key2 => value2, ... , keyN =>
valueN in the subroutine. I'm curious if there's a Perl "trick" to
doing this beyond the obvious loop
Ok I finally took the two seconds it takes to set
my mail program to reply better so I can avoid top posting!
Hope everyone is happy about that! ;)
> -Original Message-
> From: Rob Dixon [mailto:[EMAIL PROTECTED]]
> Sent: Tuesday, January 14, 2003 10:31 AM
> To: [EMAIL PROTECTED]
> Subje
Dan
> I think that's exactly whatI'm doing wrong.
>
> I think what's Jenda has been trying to get across to my little brain all
along.
>
> Thw way I'm doing it is this
>
> $string = "$row[2] $row[4] $row[5] $row[3]";
> If ($string
> But $string is already interpolated!
>
> What Jenda has bee
I think that's exactly whatI'm doing wrong.
I think what's Jenda has been trying to get across to my little brain all along.
Thw way I'm doing it is this
$string = "$row[2] $row[4] $row[5] $row[3]";
If ($string
But $string is already interpolated!
What Jenda has been saying is
Foreach $i
"Dan Muey" <[EMAIL PROTECTED]> wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
> I would think, and have been trying :
> $line =~ /\$myVariable/
> If I do $line like this :
That's exctly right.
> $line = 'HI $myVariable';
> If($line =~ /\$myVariable/) { print "HI"; }
> It works
Thank you all so much for your replies. I'll take some time and try them all out.
I think what I need to rewrite it so that it goes through the array.
Most of these ideas work like a charm, assuming that the variable containing a string
to be searched actually contains a noon interpolated variab
Hi Dan
"Dan Muey" <[EMAIL PROTECTED]> wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
That's the idea but the problem is is that @ row seems to transalet itself
into 'print userrname; and print
> mysecretpassword;' so that when it checks to see if it contains that
string '$password'
Hi Ben
"Ben Siders" <[EMAIL PROTECTED]> wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
> I believe that what he's after is a RE that will match the name of a
> variable proceded by a dollar sign.
>
> I.E., given this:
>
> $foo = "bar";
>
> if ( $var =~ // ) { print "true" }
>
> He w
I would think, and have been trying :
$line =~ /\$myVariable/
If I do $line like this :
$line = 'HI $myVariable';
If($line =~ /\$myVariable/) { print "HI"; }
It works great, the problem is I can't do $line like that.
It treats line like I did it as
$line = "HI $myVariable";
Which is actually "
From: "Dan Muey" <[EMAIL PROTECTED]>
> Thanks for the reply.
>
> To simplify the question and not get off track I need to see if a
> string contains a variable 'name' not 'value'.
I guess we all got lost in what's the actuall variable name, what's
to be interpolated when ad so forth. Let's try s
Hi Ben
"Ben Siders" <[EMAIL PROTECTED]> wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
> I believe that what he's after is a RE that will match the name of a
> variable proceded by a dollar sign.
>
> I.E., given this:
>
> $foo = "bar";
>
> if ( $var =~ // ) { print "true" }
>
> He w
Exactly! The problem is is that $var conatins '$foo' but it sees it as having 'bar'.
Thanks for helping me clarify.
-Original Message-
From: Ben Siders [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, January 14, 2003 9:36 AM
To: Rob Dixon
Cc: [EMAIL PROTECTED]
Subject: Re: finding variable nam
Hi Ben
You're not soing what you think you're doing. See below.
"Ben Siders" <[EMAIL PROTECTED]> wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
> To expand, I wrote a brief sample program to figure this out, since I
> actually had no idea how to do it. Here it is:
>
> #!/usr/bin/p
That's the idea but the problem is is that @ row seems to transalet itself into 'print
userrname; and print mysecretpassword;' so that when it checks to see if it contains
that string '$password' it doesn't, it contiand the value of $password.
Thanks all for your time. I do appreciate it. I'm al
I believe that what he's after is a RE that will match the name of a
variable proceded by a dollar sign.
I.E., given this:
$foo = "bar";
if ( $var =~ // ) { print "true" }
He wants the expression to evaluate true if $var contains the string
$foo; that is, the character '$' followed by 'f' 'o'
Hi Dan
Not clear what your problem is. This works, is it representative?
my @row = ('print $user;', 'print $password;' );
foreach (@row)
{
print $_;
print ( /\$password/ ? "\t# Invalid" : "\t# OK");
print "\n";
}
Cheers,
Rob
"Dan Muey" <[EMAIL PROTECTE
To expand, I wrote a brief sample program to figure this out, since I
actually had no idea how to do it. Here it is:
#!/usr/bin/perl
$myVariable = "blorg";
$line = ;
if ( $line =~ /$myVariable/ ) {
print "1. Line contains my variable.\n";
}
if ( $line =~ /$$myVariable/ ) {
prin
Use two $$.
if ( $line =~ /$$myVariable/ ) {
&doSomethingSpiffy;
}
Dan Muey wrote:
If I do that won't it look for the 'value' of $variable?
I need it to find the actual string '$variable' not what $variable contains.
Any other ideas?
-Original Message-
From: Paul Johnson [mailto:[EM
If I do that won't it look for the 'value' of $variable?
I need it to find the actual string '$variable' not what $variable contains.
Any other ideas?
-Original Message-
From: Paul Johnson [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, January 14, 2003 9:12 AM
To: Dan Muey
Cc: Jenda Krynicky;
Dan Muey said:
> To simplify the question and not get off track I need to see if a string
> contains a variable 'name' not 'value'.
>
> If($string =~ m/\$variable/) { print "Yes \$variable exists"; }
Don't escape the $ in the RE.
--
Paul Johnson - [EMAIL PROTECTED]
http://www.pjcj.net
--
To
Thanks for the reply.
To simplify the question and not get off track I need to see if a string contains a
variable 'name' not 'value'.
If($string =~ m/\$variable/) { print "Yes \$variable exists"; }
$variable = "Hello world";
So if $string contains -> 'HI their I am $variable' it will say "Yes
Hi Colin
It looks like your file contains two blank lines to start with. The data
from your hash should be appended to it after the run. Try dumping your
array with:
print "<<$_>>\n" foreach @participants;
then you can see where each record starts and ends.
HTH,
Rob
"Colin Johnstone" <[E
Try using double quotes around the $filename part when you open it to write.
Dan
-Original Message-
From: Colin Johnstone [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, January 14, 2003 8:32 AM
To: [EMAIL PROTECTED]
Subject: File Handling
Gidday all,
Im having trouble reading and writing t
On Mon, 13 Jan 2003 11:15:11 -0600, [EMAIL PROTECTED] (Sean Rowe) wrote:
>>I'm trying to argue my somewhat biased opinion that perl is better than
>>tcl.Any experts out there
>>that actually know why perl is/isn't better than tcl?
I would say "modules" and cpan, and it's very easy to
get he
Gidday all,
Im having trouble reading and writing to this file, It's probably just
something silly.
Heres my code. I have set the permissions on the file to 775.
my ($filename);
$filename =
"/home/bdweb8083m/johnstonefamily.com/cgi-bin/hp_data/participants.txt";
if( -e $filename ){
print "Ye
Colin Johnstone said:
> I wish to slurp in a letter template in the form of a text file and
> substitute fields in the letter for variables that are input on my html
> form. I indicate in the text file where the substitution should take place
> by the use of a like in html.
>
>
> All I need is
Hi - Jenda et. al.
> -Original Message-
> From: Jenda Krynicky [mailto:[EMAIL PROTECTED]]
> Sent: Monday, January 13, 2003 4:21 AM
> To: 'Beginners
> Subject: Re: Duping IO::Srting
> > I would like to pass a string scalar to an involked process
> > as STDIN; I can do this with IO::File and
yep...it wasn't getting as far as the open
Thanks
-Original Message-
From: Gary Stainburn [mailto:[EMAIL PROTECTED]]
Sent: 14 January 2003 12:12
To: John Dunn; Beau E. Cox; [EMAIL PROTECTED]
Subject: Re: Where do die messages go?
Hi John,
On Tuesday 14 Jan 2003 12:08 pm, John Dunn wro
PRADEEP GOEL said:
> http://www.ugu.com/sui/ugu/show?I=tip.1105&F=1
But the last one is wrong. Even if you add the missing ]
I can't believe that Tom would let it out like that. This one works:
# command-line that prints the last 50 lines (expensively)
perl -e '@lines = <>; print @lines[
Hi John,
On Tuesday 14 Jan 2003 12:08 pm, John Dunn wrote:
> Actually I do ( typo in email)
>
> open(MYFILE, ">$myfile") || die "Cannot open file";
>
> It still does not display my message
In that case, your problem is probably one of four:
1)STDERR is going somewhere else
2)die is being cought b
"Colin Johnstone" <[EMAIL PROTECTED]> wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
> > > I wish to slurp in a letter template in the form of a text file and
> > > substitute fields in the letter for variables that are input on my
html
> > > form. I indicate in the text file where
From: "Beau E. Cox" <[EMAIL PROTECTED]>
> From: John Dunn [mailto:[EMAIL PROTECTED]]
> >
> > open(MYFILE, ">$myfile") | die "Cannot open file";
>
> You need an or conditional ('||') not operator ('|'):
>
> open(MYFILE, ">$myfile") || die "Cannot open file";
> ^^
> Your mes
Hi John
"John Dunn" <[EMAIL PROTECTED]> wrote in message
A05E0089719FD311911400A0249EE7E59534F5@FRASERNT">news:A05E0089719FD311911400A0249EE7E59534F5@FRASERNT...
> open(MYFILE, ">$myfile") | die "Cannot open file";
>
> Where does the die message go? When I run my script from the command
prompt
> I
Actually I do ( typo in email)
open(MYFILE, ">$myfile") || die "Cannot open file";
It still does not display my message
-Original Message-
From: Beau E. Cox [mailto:[EMAIL PROTECTED]]
Sent: 14 January 2003 11:59
To: John Dunn; [EMAIL PROTECTED]
Subject: RE: Where do die messages go?
Hi
From: Dorcel Marc <[EMAIL PROTECTED]>
> Hello,
> I'm using an existing program that perform HTTP
> Request. In a POST request I found
> this :
> my $request = POST($URL
>Content => [ 'user' => $user,
> 'pwd' => $pwd,
>
From: John Dunn <[EMAIL PROTECTED]>
> open(MYFILE, ">$myfile") | die "Cannot open file";
>
> Where does the die message go? When I run my script from the command
> prompt I do not see the die message. I do get an error about the
> directory for the file not existing, but it is not my die message.
Hi -
You need an or conditional ('||') not operator ('|'):
open(MYFILE, ">$myfile") || die "Cannot open file";
^^
Your message should appear! || you can use 'or'. :)
Aloha => Beau;
-Original Message-
From: John Dunn [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, Janu
"Dorcel marc" <[EMAIL PROTECTED]> wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
> Hello,
> I'm using an existing program that perform HTTP
> Request. In a POST request I found
> this :
> my $request = POST($URL
>Content => [ 'user' => $user,
>
open(MYFILE, ">$myfile") | die "Cannot open file";
Where does the die message go? When I run my script from the command prompt
I do not see the die message. I do get an error about the directory for the
file not existing, but it is not my die message.
This is on Win 2K
John Dunn
Sefas Innovatio
Hello,
I'm using an existing program that perform HTTP
Request. In a POST request I found
this :
my $request = POST($URL
Content => [ 'user' => $user,
'pwd' => $pwd,
'no_auth' => '1',
Hi, all,
I have used find2perl to generate a perl script. Upon execution it gives
these message:
Use of uninitialized value in chdir at test.pl line 52.
Use of chdir('') or chdir(undef) as chdir() is deprecated at test.pl line
52.
This find2perl comes with perl 5.8.
Then I want to write a tree
http://www.ugu.com/sui/ugu/show?I=tip.1105&F=1
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Vitaliy,
Thank You for your help.
Your solution certainly looks more elegant than mine. I did
$email_body =~ s//$firstname/g;
$email_body =~ s//$date/g;
$email_body =~ s//$selectCity/g;
$email_body =~ s//$time/g;
$email_body =~ s//$workshop1/g;
$email_body =~ s//$workshop
my %var = ('FirstName'=>'John Doe',
'time' => '12:12:56',
'date' => '2002-12-12');
$line =~ s{<([^>]+)>} { exists( $var{$1} ) ? $var{$1} : "" }gsex;
"Colin Johnstone" <[EMAIL PROTECTED]> wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
>
Gidday all,
I wish to slurp in a letter template in the form of a text file and
substitute fields in the letter for variables that are input on my html
form. I indicate in the text file where the substitution should take place
by the use of a like in html.
the Text file looks like this
Dear ,
88 matches
Mail list logo
