Help for this page

Select Code to Download


  1. or download this
    open(my $fh, '>', 'my_file.txt');
    
  2. or download this
    or die "...";
    
  3. or download this
    edit_file('my_file.txt');
    
  4. or download this
    open(my $fh, '<', $myfile) or die "Unable to open file\n";
    
    ...
        unless (/^[a-z]/)  # <-- here
        {
            ...