contrib/file-4/magic/Magdir/perl

   1
   2 #------------------------------------------------------------------------------
   3 # perl:  file(1) magic for Larry Wall's perl language.
   4 #
   5 # The ``eval'' line recognizes an outrageously clever hack for USG systems.
   6 # Keith Waclena <keith@cerberus.uchicago.edu>
   7 # Send additions to <perl5-porters@perl.org>
   8 0       string/b        #!\ /bin/perl                   perl script text executable
   9 0       string          eval\ "exec\ /bin/perl          perl script text
  10 0       string/b        #!\ /usr/bin/perl               perl script text executable
  11 0       string          eval\ "exec\ /usr/bin/perl      perl script text
  12 0       string/b        #!\ /usr/local/bin/perl         perl script text
  13 0       string          eval\ "exec\ /usr/local/bin/perl        perl script text executable
  14 0       string          eval\ '(exit\ $?0)'\ &&\ eval\ 'exec    perl script text
  15
  16
  17 # by Dmitry V. Levin and Alexey Tourbin
  18 # check the first line
  19 0       string          package
  20 >1      regex           \^package[\ \t]+[A-Za-z_]
  21 >>1     regex           \^package[\ \t]+[0-9A-Za-z_:]*\ *;      Perl5 module source text
  22 # not 'p', check other lines
  23 0       byte            !0x70
  24 >0      regex           \^package[\ \t]+[0-9A-Za-z_:]+\ *;
  25 >>0     regex           \^1\ *;|\^(use|sub|my)\ .*[(;{=]        Perl5 module source text
  26
  27
  28
  29 # Perl POD documents
  30 # From: Tom Hukins <tom@eborcom.com>
  31 0       string/B        \=pod\n         Perl POD document
  32 0       string/B        \n\=pod\n       Perl POD document
  33 0       string/B        \=head1\        Perl POD document
  34 0       string/B        \n\=head1\      Perl POD document
  35 0       string/B        \=head2\        Perl POD document
  36 0       string/B        \n\=head2\      Perl POD document
  37
  38 # Perl Storable data files.
  39 0       string  perl-store      perl Storable(v0.6) data
  40 >4      byte    >0      (net-order %d)
  41 >>4     byte    &01     (network-ordered)
  42 >>4     byte    =3      (major 1)
  43 >>4     byte    =2      (major 1)
  44
  45 0       string  pst0    perl Storable(v0.7) data
  46 >4      byte    >0
  47 >>4     byte    &01     (network-ordered)
  48 >>4     byte    =5      (major 2)
  49 >>4     byte    =4      (major 2)
  50 >>5     byte    >0      (minor %d)