> Hi, all :
>
>
> The followings are the two perl scripts:
>
> t...@camlit ~: cat test1.pl
>
>1. #!/usr/bin/perl
>2.
>3. while (){
>4. print $line if /6/;
>5. $line = $_;
>6. }
>7.
>8. __DATA__
>9. 1
>10. 2
>11. 3
>12. 4
>13. 5
>14. 6
>15
δΊ 2010-11-3 16:00, sync ει:
Hi, all :
The followings are the two perl scripts:
The first is printing the line before current line.
the second is printing the current line.
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http
Hi, all :
The followings are the two perl scripts:
t...@camlit ~: cat test1.pl
1. #!/usr/bin/perl
2.
3. while (){
4. print $line if /6/;
5. $line = $_;
6. }
7.
8. __DATA__
9. 1
10. 2
11. 3
12. 4
13. 5
14. 6
15. 7
16. 8
*
*
t...@camlit ~: cat tes
