auto_unrar_perl_version
Differences
This shows you the differences between two versions of the page.
| Next revision | Previous revision | ||
|
auto_unrar_perl_version [2009/09/20 04:07] jt created |
auto_unrar_perl_version [2009/09/20 04:10] jt |
||
|---|---|---|---|
| Line 8: | Line 8: | ||
| ##Jason Thomas | ##Jason Thomas | ||
| ##20090920 | ##20090920 | ||
| - | |||
| ### need to implement directory and rar file hash table | ### need to implement directory and rar file hash table | ||
| Line 18: | Line 17: | ||
| my $rarCmd = "rar -o+ -idp e"; | my $rarCmd = "rar -o+ -idp e"; | ||
| - | my $rarSwitch = "-o+ -idp e"; | ||
| my $imagesDir = "/media/harddisk3/home/jason/images2"; | my $imagesDir = "/media/harddisk3/home/jason/images2"; | ||
| my @rarFileList; | my @rarFileList; | ||
| Line 32: | Line 30: | ||
| sub wanted { | sub wanted { | ||
| + | |||
| my ($dev,$ino,$mode,$nlink,$uid,$gid); | my ($dev,$ino,$mode,$nlink,$uid,$gid); | ||
| if (/^.*\.rar\z/s &&(($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) && (int(-C _) < 1)){ | if (/^.*\.rar\z/s &&(($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) && (int(-C _) < 1)){ | ||
| push (@rarFileList,$dir); | push (@rarFileList,$dir); | ||
| - | } | + | } |
| } | } | ||
Page Tools
Except where otherwise noted, content on this wiki is licensed under the following license: CC Attribution-Share Alike 4.0 International
