PRODUCT=3/627/1/111 NAME="QEMU QEMU USB Keyboard" PHYS="usb-0000:00:01.2-2/input0" UNIQ="42" PROP=0 EV=120013 KEY=1000000000007 ff9f207ac14057ff febeffdfffefffff fffffffffffffffe MSC=10 LED=1f MODALIAS=input:b0003v0627p0001e0111-e0,1,4,11,14,k71,72,73,74,75,77,79,7A,7B,7C,7D,7E,7F,80,81,82,83,84,85,86,87,88,89,8A,8C,8E,96,98,9E,9F,A1,A3,A4,A5,A6,AD,B0,B1,B2,B3,B4,B7,B8,B9,BA,BB,BC,BD,BE,BF,C0,C1,C2,F0,ram4,l0,1,2,3,4,sfw File not found. Hlze6WyLZ7 L_ub &=LV[(a4()P@댵qţ8package Pod::Functions; use strict; =head1 NAME Pod::Functions - Group Perl's functions a la perlfunc.pod =head1 SYNOPSIS use Pod::Functions; my @misc_ops = @{ $Kinds{ 'Misc' } }; my $misc_dsc = $Type_Description{ 'Misc' }; or perl /path/to/lib/Pod/Functions.pm This will print a grouped list of Perl's functions, like the L section. =head1 DESCRIPTION It exports the following variables: =over 4 =item %Kinds This holds a hash-of-lists. Each list contains the functions in the category the key denotes. =item %Type In this hash each key represents a function and the value is the category. The category can be a comma separated list. =item %Flavor In this hash each key represents a function and the value is a short description of that function. =item %Type_Description In this hash each key represents a category of functions and the value is a short description of that category. =item @Type_Order This list of categories is used to produce the same order as the L section. =back =cut our $VERSION = '1.13'; require Exporter; our @ISA = qw(Exporter); our @EXPORT = qw(%Kinds %Type %Flavor %Type_Description @Type_Order); our(%Kinds, %Type, %Flavor, %Type_Description, @Type_Order); foreach ( [String => 'Functions for SCALARs or strings'], [Regexp => 'Regular expressions and pattern matching'], [Math => 'Numeric functions'], [ARRAY => 'Functions for real @ARRAYs'], [LIST => 'Functions for list data'], [HASH => 'Functions for real %HASHes'], ['I/O' => 'Input and output functions'], [Binary => 'Functions for fixed-length data or records'], [File => 'Functions for filehandles, files, or directories'], [Flow => 'Keywords related to the control flow of your Perl program'], [Namespace => 'Keywords related to scoping'], [Misc => 'Miscellaneous functions'], [Process => 'Functions for processes and process groups'], [Modules => 'Keywords related to Perl modules'], [Objects => 'Keywords related to classes and object-orientation'], [Socket => 'Low-level socket functions'], [SysV => 'System V interprocess communication functions'], [User => 'Fetching user and group info'], [Network => 'Fetching network info'], [Time => 'Time-related functions'], ) { push @Type_Order, $_->[0]; $Type_Description{$_->[0]} = $_->[1]; }; while () { chomp; s/^#.*//; next unless $_; my($name, @data) = split "\t", $_; $Flavor{$name} = pop @data; $Type{$name} = join ',', @data; for my $t (@data) { push @{$Kinds{$t}}, $name; } } close DATA; my( $typedesc, $list ); unless (caller) { foreach my $type ( @Type_Order ) { $list = join(", ", sort @{$Kinds{$type}}); $typedesc = $Type_Description{$type} . ":"; write; } } format = ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< $typedesc ~~ ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< $typedesc ~~ ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< $list . 1; __DATA__ -X File a file test (-r, -x, etc) abs Math absolute value function accept Socket accept an incoming socket connect alarm Process schedule a SIGALRM atan2 Math arctangent of Y/X in the range -PI to PI bind Socket binds an address to a socket binmode I/O prepare binary files for I/O bless Objects create an object