At 19:01 11.18.2001 -0800, John W. Krahn wrote:
>Andrea Holstein wrote:
> >
> > Prasanthi Tenneti wrote:
> > >
> > > Iam a beginner in perl.I have one question,
> > > Iam trying to write one prog,in which i have to search for one word in a
> > > file,
> > > If I found that word,print next 4 lines.
> > > PLs help me,how to write code.
> >
> > open FILE, "<filename";
> > while (<FILE>) {
> > print(<FILE>,<FILE>,<FILE>,<FILE>), last if /your_word/;
>
> print(scalar <FILE>,scalar <FILE>,scalar <FILE>,scalar <FILE>),
>last if /your_word/;
How could this be done using the 'x' operator? ie
print (scalar<FILE>)x4; # doesn't work
Is there a way to make that work so that you don't have to use "scalar
<FILE>" so many times?
> > }
> > close FILE;
>
>
>John
>--
>use Perl;
>program
>fulfillment
>
>--
>To unsubscribe, e-mail: [EMAIL PROTECTED]
>For additional commands, e-mail: [EMAIL PROTECTED]
- Jim
-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-
http://www.perlmonks.org/index.pl?node_id=67861&lastnode_id=67861
-----BEGIN PERL GEEK CODE BLOCK----- ------BEGIN GEEK CODE BLOCK------
Version: 0.01 Version: 3.12
P++>*@$c?P6?R+++>++++@$M GIT/CM/J d++(--) s++:++ a-
>++++$O!MA->++++E!> PU-->+++BD C++++(+) UB++++$L++++$S++++$
$C-@D!>++++(-)$S++++@$X?WP+>++++MO!>+++ P++(+)>+++++ L+++(++++)>+++++$ !E*
+PP+++>++++n-CO?PO!o >++++G W++(+++) N+ o !K w--- PS---(-)@ PE
>*(!)$A-->++++@$Ee---(-)Ev++uL++>*@$uB+ Y+>+++ PGP t+(+++)>+++@ 5- X++ R@
>*@$uS+>*@$uH+uo+w-@$m! tv+ b? DI-(+++) D+++(++) G(++++)
------END PERL GEEK CODE BLOCK------ ------END GEEK CODE BLOCK------
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
