On Fri, Sep 05, 2003 at 03:25:46PM +0530 Sachin Mathur wrote:
> Hi ,
> I am a beginner in perl I would like to know how to reset a file
> pointer in perl. Is their a rewind command in perl
Yes, it's called seek():
use Fcntl qw/:seek/;
seek FILE, 0, SEEK_SET;
The first line is only for importing the SEEK_* constants for the sake
of portability. See 'perldoc -f seek'.
Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~dddd;eval
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
