Re^2: BoSelecta __DATA_

This what I changed to,...still did,'t work because I not familier with Seek(), Tell(),..etc.

Can you please put me out of my misry

Thanks

else
    {
       my $dpos = tell(DATA);       
       print "\n$dpos";
       chomp ( @work_file=<DATA>);
       seek (DATA ,2,"SEEK_SET");

    }
[download]

Blackadder

Comment on Re^2: BoSelecta __DATA__ and rewind. Download Code

Replies are listed 'Best First'.
Re^3: BoSelecta __DATA__ and rewind. by Limbic~Region (Chancellor) on Oct 04, 2004 at 13:49 UTC
blackadder, Perhaps this will help: `#!/usr/bin/perl use strict; use warnings; my $pos = tell DATA; print while <DATA>; seek DATA, $pos, 0; print uc while <DATA>; __DATA__ one two three four` [download] Cheers - L~R	[reply] [d/l]
Re^4: BoSelecta __DATA__ and rewind. by blackadder (Hermit) on Oct 04, 2004 at 14:28 UTC
Hey "Limbic~Region", Thanks buddy. Blackadder	[reply]