http://www.perlmonks.org?node_id=832202


in reply to Re: Help with Regular Expressions and Perl
in thread Help with Regular Expressions and Perl

Hi,

You are processing a single file (reading and writing in the same file), so please check the input file content in every execution (may be you are reading the blank file) or try link this,

use strict; use warnings; open(INFILE, "<perlfile.txt"); my @variable; my $variable = join("\n", @variable = <INFILE>); close(INFILE); open(OUTFILE, ">perlfile_out.txt"); $variable =~ s/0/zero/g ; $variable =~ s/1/one/g ; $variable =~ s/2/two/g ; $variable =~ s/3/three/g ; $variable =~ s/4/four/g ; $variable =~ s/5/five/g ; $variable =~ s/6/six/g ; $variable =~ s/7/seven/g ; $variable =~ s/8/eight/g ; $variable =~ s/9/nine/g ; print OUTFILE "$variable"; close(OUTFILE);

Punitha