view release on metacpan or  search on metacpan

examples/fakeup.pl  view on Meta::CPAN

#!/usr/bin/perl -w

use strict;
use Data::Dumper;

use constant PRINTF => '%y\t%m\t%M\t%n\t%U\t%u\t%G\t%g\t%s\t%TY-%Tm-%Td '.
					'%TH:%TM\t%T@\t%CY-%Cm-%Cd %CH:%CM\t%C@\t%h\t%f\t%p\n';
use constant PRINTF_FIELDS => qw(type mode perms links uid owner gid
	group size mtime unixmtime ctime unixctime path filename absfile);

my %data;

my $cmd = sprintf('find . -printf "%s"',PRINTF);
open(PH,'-|',$cmd) || die "Unable to open file handle PH for command '$cmd': $!";
while (local $_ = <PH>) {
	chomp;
	my %tmp;
	@tmp{PRINTF_FIELDS()} = split(/\t/,$_);
	$data{$tmp{absfile}} = \%tmp;

t/htdocs/test/perl.txt  view on Meta::CPAN

http://nntp.perl.org - nntp.perl.org  - The perl.org news server
http://www.nntp.perl.org - nntp.perl.org  - The perl.org news server
http://noc.perl.org - The Perl NOC - perl.org
http://p5ee.perl.org - P5EE - 
http://pause.cpan.org - PAUSE: menu
http://pdl.perl.org - PDL - The Perl Data Language
http://perl4lib.perl.org - Perl4lib
http://perl.apache.org - mod_perl: Welcome to the mod_perl world
http://planet.perl.org - Planet Perl
http://poe.perl.org - POE: Perl Object Environment
http://ppt.perl.org - PPT: Unix Reconstruction Project
http://qa.perl.org - Perl Quality Assurance Projects - 
http://rt.perl.org - bugs6.perl.org
http://sax.perl.org - 
http://sdl.perl.org - Simple DirectMedia Library Bindings for Perl - 
http://svn.perl.org - svn.perl.org
http://tpj.perl.org - 
http://use.perl.org - use Perl: All the Perl that's Practical to Extract and Report