Attachment 926559 Details for Bug 1129850 – An example of how it should work.

An example of how it should work.

PerlWorking.txt (text/plain), 3.29 KB, created by Alan Olsen on 2014-08-13 19:29:09 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Alan Olsen

Created: 2014-08-13 19:29:09 UTC

Size: 3.29 KB

patch

obsolete

>This is on my CentOS machine. This works. 
>
>perl-5.8.8-41.el5
>perl-PadWalker-1.9-1.el5.rf
>
>[alan@blackbox ~]$ perl -d finddup.pl
>
>Loading DB routines from perl5db.pl version 1.28
>Editor support available.
>
>Enter h or `h h' for help, or `man perldebug' for more help.
>
>main::(finddup.pl:7):	our $Version = "2.9.1";
>  DB<1> 
>
>  DB<1> n
>main::(finddup.pl:9):	print "Duplication Remover version $Version\n\n";
>  DB<1> 
>Duplication Remover version 2.9.1
>
>main::(finddup.pl:80):	$sha1 = Digest::SHA1->new;
>  DB<1> 
>main::(finddup.pl:82):	my @tosearch_dir = undef;
>  DB<1> 
>main::(finddup.pl:87):	push @tosearch_dir, '/home/alan/Viruses/';
>  DB<1> 
>main::(finddup.pl:95):	push @tosearch_dir, '/home/alan/News/Pan/';
>  DB<1> 
>main::(finddup.pl:148):	my $min_size=2500000;
>  DB<1> 
>main::(finddup.pl:149):	my $min_size=0;
>  DB<1> y tosearch_dir
>PadWalker module not found - please install
>  DB<2> q
>[alan@blackbox ~]$ su -
>Password: 
>[root@blackbox ~]# yum install perl-Pad*
>Loaded plugins: fastestmirror
>Loading mirror speeds from cached hostfile
> * base: centos.mirrors.hoobly.com
> * epel: linux.mirrors.es.net
> * extras: mirrors.usc.edu
> * rpmforge: mirror.webnx.com
> * rpmfusion-free-updates: mirrors.tummy.com
> * rpmfusion-nonfree-updates: mirror.nexcess.net
> * updates: repos.lax.quadranet.com
>Setting up Install Process
>Resolving Dependencies
>--> Running transaction check
>---> Package perl-PadWalker.x86_64 0:1.9-1.el5.rf set to be updated
>--> Finished Dependency Resolution
>
>Dependencies Resolved
>
>================================================================================
> Package               Arch          Version              Repository       Size
>================================================================================
>Installing:
> perl-PadWalker        x86_64        1.9-1.el5.rf         rpmforge         47 k
>
>Transaction Summary
>================================================================================
>Install       1 Package(s)
>Upgrade       0 Package(s)
>
>Total download size: 47 k
>Is this ok [y/N]: y
>Downloading Packages:
>perl-PadWalker-1.9-1.el5.rf.x86_64.rpm                   |  47 kB     00:00     
>Running rpm_check_debug
>Running Transaction Test
>Finished Transaction Test
>Transaction Test Succeeded
>Running Transaction
>  Installing     : perl-PadWalker                                           1/1 
>
>Installed:
>  perl-PadWalker.x86_64 0:1.9-1.el5.rf                                          
>
>Complete!
>[root@blackbox ~]# exit
>logout
>
>You have new mail in /var/spool/mail/alan
>[alan@blackbox ~]$ perl -d finddup.pl
>
>Loading DB routines from perl5db.pl version 1.28
>Editor support available.
>
>Enter h or `h h' for help, or `man perldebug' for more help.
>
>main::(finddup.pl:7):	our $Version = "2.9.1";
>  DB<1> n
>main::(finddup.pl:9):	print "Duplication Remover version $Version\n\n";
>  DB<1> 
>Duplication Remover version 2.9.1
>
>main::(finddup.pl:80):	$sha1 = Digest::SHA1->new;
>  DB<1> 
>main::(finddup.pl:82):	my @tosearch_dir = undef;
>  DB<1> 
>main::(finddup.pl:87):	push @tosearch_dir, '/home/alan/Viruses/';
>  DB<1> 
>main::(finddup.pl:95):	push @tosearch_dir, '/home/alan/News/Pan/';
>  DB<1> 
>main::(finddup.pl:148):	my $min_size=2500000;
>  DB<1> 
>main::(finddup.pl:149):	my $min_size=0;
>  DB<1> y tosearch_dir
>@tosearch_dir = (
>   0  undef
>   1  '/home/alan/Viruses/'
>   2  '/home/alan/News/Pan/'
>)
>  DB<2> q
>[alan@blackbox ~]$ 
>

Actions: View

Attachments on bug 1129850: 926559 | 926560 | 926984