Help for this page

Select Code to Download


  1. or download this
    while (<DATA>) {
       die "Error!" if $_ eq ".\n";
    ...
    .
    d
    e
    
  2. or download this
    Error! at script.pl line 2, <DATA> line 4.
    
  3. or download this
    <DATA>;
    die "Error!";
    ...
    __DATA__
    a
    b
    
  4. or download this
    Error! at script.pl line 2, <DATA> line 1.
    
  5. or download this
    <DATA>;
    close(DATA);
    ...
    __DATA__
    a
    b
    
  6. or download this
    Error! at script.pl line 3.
    
  7. or download this
    <DATA>;
    $. = 100;
    ...
    __DATA__
    a
    b
    
  8. or download this
    Error! at script.pl line 3, <DATA> line 100.
    
  9. or download this
    <DATA>;
    $. = 0;
    ...
    __DATA__
    a
    b
    
  10. or download this
    Error! at script.pl line 3.
    
  11. or download this
    Error! at script.pl line 3, filename.dat line 100.