hweefarn has asked for the wisdom of the Perl Monks concerning the following question:
if ($from eq $field18) { #build filename $tm=localtime; ($year,$month,$day)=($tm->year+1900, ($tm->mon)+1, $tm->mday); ($hour,$min,$sec)=($tm->hour, $tm->min, $tm->sec); #$filename=$day.$month.$year.$hour.$min.$sec."\.txt"; $filename=$day.$month.$year.$hour.$min.$sec; #go in to the right directory $base="/home/".$userID."/mail/".$field21; chdir("$base"); #build the full path name $full=$base."\/".$filename; #open the file first open(OUTFILE2, ">$full") or die "Can?t open file: $!"; #write to the file print OUTFILE2 "From: ", $from, "\n"; print OUTFILE2 "To: ", $to, "\n"; print OUTFILE2 "Subject: ", $subject, "\n"; print OUTFILE2 "Message body: ", "\n", $body, "\n"; close OUTFILE2; #change file permission chmod (0666, "$full"); }
20031225 Edit by Corion: Added code tags
Title edit by tye
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: file problem
by TomDLux (Vicar) on Dec 25, 2003 at 17:50 UTC | |
|
Re: file problem
by allolex (Curate) on Dec 25, 2003 at 16:11 UTC | |
by Aristotle (Chancellor) on Dec 25, 2003 at 17:02 UTC | |
|
Re: file problem
by b10m (Vicar) on Dec 25, 2003 at 09:35 UTC | |
by allolex (Curate) on Dec 25, 2003 at 16:18 UTC | |
|
Re: file problem
by bart (Canon) on Dec 25, 2003 at 22:45 UTC | |
by TomDLux (Vicar) on Dec 27, 2003 at 14:53 UTC |