2 #------------------------------------------------------------------------------
3 # perl: file(1) magic for Larry Wall's perl language.
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
17 # by Dmitry V. Levin and Alexey Tourbin
18 # check the first line
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
24 >0 regex \^package[\ \t]+[0-9A-Za-z_:]+\ *;
25 >>0 regex \^1\ *;|\^(use|sub|my)\ .*[(;{=] Perl5 module source text
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
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)
45 0 string pst0 perl Storable(v0.7) data
47 >>4 byte &01 (network-ordered)
50 >>5 byte >0 (minor %d)