Language Basics Perl

  1. Home
  2. Perl
  3. Language Basics
  4. Test of open and die with $!
#!/usr/bin/perl -w
$filename = "nofile";
open(TMP, $filename)
    or die "Can't open \"$filename\" due to $! ";