"Fossies" - the Fresh Open Source Software Archive

Member "file-5.35/magic/Magdir/perl" (17 Mar 2017, 3601 Bytes) of package /linux/misc/file-5.35.tar.gz:


As a special service "Fossies" has tried to format the requested text file into HTML format (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file. See also the last Fossies "Diffs" side-by-side code changes report for "perl": 5.30_vs_5.31.

    1 #------------------------------------------------------------------------------
    2 # $File: perl,v 1.26 2017/02/21 18:34:55 christos Exp $
    3 # perl:  file(1) magic for Larry Wall's perl language.
    4 #
    5 # The `eval' lines recognizes an outrageously clever hack.
    6 # Keith Waclena <keith@cerberus.uchicago.edu>
    7 # Send additions to <perl5-porters@perl.org>
    8 0	search/1024	eval\ "exec\ perl		Perl script text
    9 !:mime	text/x-perl
   10 0	search/1024	eval\ "exec\ /bin/perl		Perl script text
   11 !:mime	text/x-perl
   12 0	search/1024	eval\ "exec\ /usr/bin/perl	Perl script text
   13 !:mime	text/x-perl
   14 0	search/1024	eval\ "exec\ /usr/local/bin/perl	Perl script text
   15 !:mime	text/x-perl
   16 0	search/1024	eval\ 'exec\ perl		Perl script text
   17 !:mime	text/x-perl
   18 0	search/1024	eval\ 'exec\ /bin/perl		Perl script text
   19 !:mime	text/x-perl
   20 0	search/1024	eval\ 'exec\ /usr/bin/perl	Perl script text
   21 !:mime	text/x-perl
   22 0	search/1024	eval\ 'exec\ /usr/local/bin/perl	Perl script text
   23 !:mime	text/x-perl
   24 0	search/1024	eval\ '(exit\ $?0)'\ &&\ eval\ 'exec	Perl script text
   25 !:mime	text/x-perl
   26 0	string	#!/usr/bin/env\ perl	Perl script text executable
   27 !:mime	text/x-perl
   28 0	string	#!\ /usr/bin/env\ perl	Perl script text executable
   29 !:mime	text/x-perl
   30 0	string	#!
   31 >0	regex	\^#!.*/bin/perl([[:space:]].*)*$	Perl script text executable
   32 !:mime	text/x-perl
   33 
   34 # by Dmitry V. Levin and Alexey Tourbin
   35 # check the first line
   36 0	search/8192	package
   37 >0	regex		\^package[\ \t]+[0-9A-Za-z_:]+\ *;	Perl5 module source text
   38 !:strength + 40
   39 # not 'p', check other lines
   40 0	search/8192	!p
   41 >0	regex		\^package[\ \t]+[0-9A-Za-z_:]+\ *;
   42 >>0	regex		\^1\ *;|\^(use|sub|my)\ .*[(;{=]	Perl5 module source text
   43 !:strength + 75
   44 
   45 # Perl POD documents
   46 # From: Tom Hukins <tom@eborcom.com>
   47 0	search/1024/W	\=pod\n		Perl POD document text
   48 0	search/1024/W	\n\=pod\n	Perl POD document text
   49 0	search/1024/W	\=head1\ 	Perl POD document text
   50 0	search/1024/W	\n\=head1\ 	Perl POD document text
   51 0	search/1024/W	\=head2\ 	Perl POD document text
   52 0	search/1024/W	\n\=head2\ 	Perl POD document text
   53 0	search/1024/W	\=encoding\ 	Perl POD document text
   54 0	search/1024/W	\n\=encoding\ 	Perl POD document text
   55 
   56 
   57 # Perl Storable data files.
   58 0	string	perl-store	perl Storable (v0.6) data
   59 >4	byte	>0	(net-order %d)
   60 >>4	byte	&01	(network-ordered)
   61 >>4	byte	=3	(major 1)
   62 >>4	byte	=2	(major 1)
   63 
   64 0	string	pst0	perl Storable (v0.7) data
   65 >4	byte	>0
   66 >>4	byte	&01	(network-ordered)
   67 >>4	byte	=5	(major 2)
   68 >>4	byte	=4	(major 2)
   69 >>5	byte	>0	(minor %d)
   70 
   71 # This is Debian #742949 by Zefram <zefram@fysh.org>:
   72 # -----------------------------------------------------------
   73 # The Perl module Hash::SharedMem
   74 # <https://metacpan.org/release/Hash-SharedMem> defines a file format
   75 # for a key/value store.  Details of the file format are in the "DESIGN"
   76 # file in the module distribution.  Magic:
   77 0	bequad	=0xa58afd185cbf5af7	Hash::SharedMem master file, big-endian
   78 >8	bequad	<0x1000000
   79 >>15	byte	>2	\b, line size 2^%d byte
   80 >>14	byte	>2	\b, page size 2^%d byte
   81 >>13	byte	&1
   82 >>>13	byte	>1	\b, max fanout %d
   83 0	lequad	=0xa58afd185cbf5af7	Hash::SharedMem master file, little-endian
   84 >8	lequad	<0x1000000
   85 >>8	byte	>2	\b, line size 2^%d byte
   86 >>9	byte	>2	\b, page size 2^%d byte
   87 >>10	byte	&1
   88 >>>10	byte	>1	\b, max fanout %d
   89 0	bequad	=0xc693dac5ed5e47c2	Hash::SharedMem data file, big-endian
   90 >8	bequad	<0x1000000
   91 >>15	byte	>2	\b, line size 2^%d byte
   92 >>14	byte	>2	\b, page size 2^%d byte
   93 >>13	byte	&1
   94 >>>13	byte	>1	\b, max fanout %d
   95 0	lequad	=0xc693dac5ed5e47c2	Hash::SharedMem data file, little-endian
   96 >8	lequad	<0x1000000
   97 >>8	byte	>2	\b, line size 2^%d byte
   98 >>9	byte	>2	\b, page size 2^%d byte
   99 >>10	byte	&1
  100 >>>10	byte	>1	\b, max fanout %d