> 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
