diff options
Diffstat (limited to 'contrib/file/Magdir/perl')
| -rw-r--r-- | contrib/file/Magdir/perl | 48 |
1 files changed, 27 insertions, 21 deletions
diff --git a/contrib/file/Magdir/perl b/contrib/file/Magdir/perl index a8daee4..73fb88b 100644 --- a/contrib/file/Magdir/perl +++ b/contrib/file/Magdir/perl @@ -1,26 +1,32 @@ - #------------------------------------------------------------------------------ # perl: file(1) magic for Larry Wall's perl language. # -# The ``eval'' line recognizes an outrageously clever hack for USG systems. +# The `eval' lines recognizes an outrageously clever hack. # Keith Waclena <keith@cerberus.uchicago.edu> # Send additions to <perl5-porters@perl.org> -0 string/b #!\ /bin/perl perl script text executable -0 string eval\ "exec\ /bin/perl perl script text -0 string/b #!\ /usr/bin/perl perl script text executable -0 string eval\ "exec\ /usr/bin/perl perl script text -0 string/b #!\ /usr/local/bin/perl perl script text -0 string eval\ "exec\ /usr/local/bin/perl perl script text executable -0 string eval\ '(exit\ $?0)'\ &&\ eval\ 'exec perl script text +0 search/1/b #!\ /bin/perl Perl script text executable +!:mime text/x-perl +0 search/1 eval\ "exec\ /bin/perl Perl script text +!:mime text/x-perl +0 search/1/b #!\ /usr/bin/perl Perl script text executable +!:mime text/x-perl +0 search/1 eval\ "exec\ /usr/bin/perl Perl script text +!:mime text/x-perl +0 search/1/b #!\ /usr/local/bin/perl Perl script text executable +!:mime text/x-perl +0 search/1 eval\ "exec\ /usr/local/bin/perl Perl script text +!:mime text/x-perl +0 search/1 eval\ '(exit\ $?0)'\ &&\ eval\ 'exec Perl script text +!:mime text/x-perl # by Dmitry V. Levin and Alexey Tourbin # check the first line -0 string package ->1 regex \^package[\ \t]+[A-Za-z_] ->>1 regex \^package[\ \t]+[0-9A-Za-z_:]*\ *; Perl5 module source text +0 search/1 package +0 regex \^package[\ \t]+[A-Za-z_] +>0 regex \^package[\ \t]+[0-9A-Za-z_:]+\ *; Perl5 module source text # not 'p', check other lines -0 byte !0x70 +0 search/1 !p >0 regex \^package[\ \t]+[0-9A-Za-z_:]+\ *; >>0 regex \^1\ *;|\^(use|sub|my)\ .*[(;{=] Perl5 module source text @@ -28,21 +34,21 @@ # Perl POD documents # From: Tom Hukins <tom@eborcom.com> -0 string/B \=pod\n Perl POD document -0 string/B \n\=pod\n Perl POD document -0 string/B \=head1\ Perl POD document -0 string/B \n\=head1\ Perl POD document -0 string/B \=head2\ Perl POD document -0 string/B \n\=head2\ Perl POD document +0 search/1/B \=pod\n Perl POD document text +0 search/1/B \n\=pod\n Perl POD document text +0 search/1/B \=head1\ Perl POD document text +0 search/1/B \n\=head1\ Perl POD document text +0 search/1/B \=head2\ Perl POD document text +0 search/1/B \n\=head2\ Perl POD document text # Perl Storable data files. -0 string perl-store perl Storable(v0.6) data +0 string perl-store perl Storable (v0.6) data >4 byte >0 (net-order %d) >>4 byte &01 (network-ordered) >>4 byte =3 (major 1) >>4 byte =2 (major 1) -0 string pst0 perl Storable(v0.7) data +0 string pst0 perl Storable (v0.7) data >4 byte >0 >>4 byte &01 (network-ordered) >>4 byte =5 (major 2) |
