thanks verymuch.. the prgm working fine now!! cheers
pravesh Frank Wiles wrote:
.------[ Pravesh Biyani wrote (2002/11/12 at 17:49:14) ]------
| | hi
| i have a prog which should create a file according to the date and name | it "$date.log" and write something depending upon other things in it!
| Here is the code.. which refuses to work
| | any clues.. ?
| | TIA
| | pravesh
| | --------------------------------------------------------------
| #!/usr/bin/perl -w
| | $prefix_file = ` date '+%x' ` ;
| $log = ".log" ;
| | print " the date is $prefix_file" ;
| | $probe_logfile = $prefix_file . $log ;
| | $probefile = "<probe.log" ;
| $OUTFILE = ">>$probe_logfile";
| my ($line_number) = 0;
| my ($yes) = 1;
| my ($no) = 0;
| open(probefile) or die("ERROR: $! \n");
| open(OUTFILE) or die ("ERRROR :$! \n");
| `-------------------------------------------------
You're not using open() correctly. You need to have something along
the lines of:
open(PROBE, $profile); open(OUT, $OUTFILE);
while( <PROBE> ) {
}
You might want to re-read perldoc -f open.
---------------------------------
Frank Wiles <[EMAIL PROTECTED]>
http://frank.wiles.org
---------------------------------
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
