Search Results

but I need show text1 ~ text100 in output file, the increased number be added at the end of each text.

I try to read in a file and write out a new file with increased number at the end of each line. And I can set the initial value and increased constant from inputs.

input file:
text1
text2
text3...

It works! Thanks so much.

It's no problem print these lines in screen, but I still can't put these lines in file. Like my code:
open(OF, $infile);
open(NF, ">$outfile");

while ($line = <OF>) {
if ( $line =~ m/\[/ )
...

It doesn't work for me. I try to use perl script to handle each line in file. The code I used:
open(OF, $infile);
while ($line = <OF>)
{
my $w = "(.+?)";
$line =~ m/^$w\[$w:$w\]/;
...

How to search string like: a[7:0] and replace to
a[0]
a[1]
a[2]
:
:
a[7]
in a file with perl?

Thanks,
Grace