On Wed, 2006-29-03 at 20:44 +0800, 庞 wrote:
> dear all , I'am trying to write a script to neaten files as follows:
>
> 1 : #!/usr/local/bin/perl
> 2 :
> 3 : while ($inputline = <STDIN>) {
> 4 : while ($inputline =~ /\b[A-Z]\S+/g) {
> 5 : $word = $&;
> 6 : $word =~ s/[;.,:-]$//; # remove punctuation
> 7 : for ($count = 1; $count <= @wordlist;
> 8 : $count++) {
> 9 : $found = 0;
> 10: if ($wordlist[$count-1] eq $word) {
> 11: $found = 1;
> 12: $wordcount[$count-1] += 1;
> 13: last;
>
>
> I want to clear the number and colon at the beginning of each line and wirte
> a perl script
>
> #/usr/bin/perl -w
> use strict ;
>
> open MYFILE , "my.txt" ;
> my @array=<MYFILE>;
> my $count=0;
> my @temp;
> my $sum=0;
>
> for($count=0;$count lt @array ; $count++){
for( $count = 0; $count < @array; $count ++ ){
# 'lt' is for strings, '<' is for numbers
> (my $number,$temp[$sum])=split (/:/,$array[$count]);
> print $number,"\n";
> $sum++;
> }
>
>
> print @temp;
>
>
> but the output just three lines instead of 17
>
>
> --
> Terry Pang
--
__END__
Just my 0.00000002 million dollars worth,
--- Shawn
"For the things we have to learn before we can do them,
we learn by doing them."
Aristotle
* Perl tutorials at http://perlmonks.org/?node=Tutorials
* A searchable perldoc is at http://perldoc.perl.org/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
