HTH#!/usr/bin/perl -w use strict; open IN, "myfile.txt" || die "Couldn't open myfile: $!\n"; open OUT, ">myresults.txt" || die "Couldn't open output: $!\n"; my @array; while (<IN>) { chomp; $_ =~ s/://g; print OUT $_ ."\n"; } close IN; close OUT; or while(<IN>) { chomp; push(@array, $_); } close IN; foreach my $num (@array) { $num =~ s/://g; print $num ."\n"; }
In reply to Re: Substitution all parts of an array...
by Ineffectual
in thread Substitution all parts of an array...
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |