linux - Perl Directory Finder doesn't work? -


i have script find directories , .tar.gz files. whatever reason (that's i'm hoping can me with) my

if ( -d $file )

doesn't return it's directory!!!

my script:

# specify directory want start search $directory = $argv[0]; $directorycount = 0;  # calling subroutine, searches file readdirectory($directory);  sub readdirectory {     $directory = shift;     $searchfile = shift;         @directories;         $tarouput;      # little bit output, in directory script     # searching @ moment (the following line not necessary)     print "searching in $directory\n\n";      # open , close directory     opendir(dir, $directory) or die("error: couldn't open specified directory $!");     @files = readdir dir;     closedir dir;      shift(@files);     shift(@files);      print "------------------------------------------------------------------------    \n\n";      foreach $currentfile (@files)     {         print "current file:", $currentfile, "\n\n";         if ( -d $currentfile )  #this doesn't work?!?!?!?!?         {                         print "directory: ", $currentfile, "\n\n";                         #push (@directories, $currentfile);                         #print "found new directory:     $directories[$directorycount]\n\ncurrent number = $directorycount\n\n";                         #$directorycount++;                         #print "directories: ", @directories, "\n\n";                         #next;                         # subroutine calling hisself new parameters                         #readdirectory($currentfile); #recursive call through sub-directories         }          elsif ( $currentfile =~ /\.tar.gz$/i || $currentfile =~ /\.tar$/i)         {                         print "file: ", $currentfile, "\n\n";                         $taroutput = `tar -tvzf $currentfile`;                         print $taroutput, "\n";         }          print "-----------------------------------------------------------------------    \n\n";     } }

the print statement print $currentfile if it's directory never prints...

output:

searching in /home/gackerma/logs  ------------------------------------------------------------------------  current file:dir1  -----------------------------------------------------------------------  current file:file  -----------------------------------------------------------------------  current file:configs.tar.gz  file: configs.tar.gz  tar (child): configs.tar.gz: cannot open: no such file or directory tar (child): error not recoverable: exiting tar: child returned status 2 tar: error not recoverable: exiting  -----------------------------------------------------------------------  current file:adstatlog.299  -----------------------------------------------------------------------  current file:adstatlog.tgz  -----------------------------------------------------------------------

i've done exact same thing super simple script in same directory , works...but nope, not here. don't understand what's wrong...?

help please?

this looks wrong. see diff below

--- yours.pl     +++ mine.pl        # open , close directory      opendir(dir, $directory) or die("error: couldn't open specified directory $!"); -    @files = readdir dir; +    @files = grep { $_ !~ /^\.{1,2}$/ } readdir dir;      closedir dir;  -    shift(@files); -    shift(@files);       foreach $currentfile (@files)      { +        $fullpath = "$directory/$currentfile";          print "current file:", $currentfile, "\n\n"; -        if ( -d $currentfile )  #this doesn't work?!?!?!?!? +        if ( -d $fullpath )  #this doesn't work?!?!?!?!?          {              print "directory: ", $currentfile, "\n\n";              #push (@directories, $currentfile);              #print "directories: ", @directories, "\n\n";              #next;              # subroutine calling hisself new parameters -            #readdirectory($currentfile); #recursive call through sub-directories +            readdirectory($fullpath); #recursive call through sub-directories          }

i'm guessing double shift meaning shift off "." , "..", incorrect. might work if did sort @files, still bad way it. see grep.

next problem $currentfile needs full path here. otherwise it's looking $currentfile in current working directory


Comments

Post a Comment

Popular posts from this blog

linux - xterm copying to CLIPBOARD using copy-selection causes automatic updating of CLIPBOARD upon mouse selection -

i've tried various ways coerce xterm (versions 285 , 292) copy selection clipboard clipboard whenever press ctrl-shift-c. promising way far has been, in ~/.xresources, put this: xterm*vt100.translations: #override \ ctrl shift <keypress> c: copy-selection(clipboard) \n\ ctrl shift <keypress> v: insert-selection(clipboard) ctrl-shift-v works perfectly, copying has nuance... if restart xterm, highlighting text puts things in primary clipboard; expected, proper, default behavior. if hit ctrl-shift-c, copies current selection clipboard clipboard. the bug, however, if highlight text after first time pressed ctrl-shift-c, you'll see highlighting copies both primary and clipboard. cannot figure out how stop xterm updating clipboard upon selection... , doesn't make sense me in first place. i said, @ specific point in time, copy selection clipboard... yet starts updating automatically upon selection after doing once... anyone have workaround...
Read more

c++ - qgraphicsview horizontal scrolling always has a vertical delta -

Image
i've subclassed qgraphicsview custom canvas used in cad application. i've reimplemented qgraphicsview::wheelevent check keyboard modifiers control key and, if control key pressed, zoom. i'm trying implement horizontal scroll when user holds shift , uses wheel. the problem i'm having horizontal scrolling always scrolls 0.279. not huge problem, hugely annoying , points else being wrong. so, here questions: is right way implement horizontal scrolling? if not, is? how eliminate delta of 0.279? thanks in advance. code , sample output below void myview::zoom(int delta) { double factor = pow(1.2, delta/abs(delta)); this->scale(factor, factor); } void myview::scrollhorizontal(int level) { qpointf center = maptoscene(viewport()->rect().center()); qdebug() << "center: " << center.x() << ", " << center.y(); centeron(qpointf(center.x() - level, center.y())); } void myview::wheelevent(qwheeleve...
Read more