File Perl

  1. Home
  2. Perl
  3. File
  4. Seek and tell
#!/usr/local/bin/perl 
@array = ("This", "is", "a", "test"); 
open (TEMPFILE, ">file1"); 
foreach $element (@array) { 
    print TEMPFILE ("$element\n"); 
} 
close (TEMPFILE); 
open (TEMPFILE, "file1"); 
while (1) { 
    $skipback = tell(TEMPFILE); 
    $line = ; 
    last if ($line eq ""); 
    print ($line); 
    $line = ; # assume the second line exists 
    print ($line); 
    seek (TEMPFILE, $skipback, 0); 
    $line = ; 
    print ($line); 
    $line = ; 
    print ($line); 
}