The stupid question is the question not asked | |
PerlMonks |
BzBeauty's scratchpadby BzBeauty (Sexton) |
on Jun 07, 2004 at 23:02 UTC ( [id://362147]=scratchpad: print w/replies, xml ) | Need Help?? |
##################################################### ### Writing to File ### ##################################################### print "Content-type: text/html\n\n"; $new_info = "My example text here"; #get info from the file open (example, "./example.txt") || die ("Could not open file. $!"); $text = <example>; while ($text){ $test =~ /(\d+)/; my ($count) = $1; $text = <example>; } print "bite me: $count"; close (example); |
|