Thread perl im debug-modus fahren (18 answers)
Opened by lin at 2010-10-01 20:18

lin
 2010-10-02 13:43
#141641 #141641
User since
2010-09-26
35 Artikel
BenutzerIn
[default_avatar]
Hi Bianca, hi @ all!

habe jetzt nochmals einen Versuch gemacht: Da die Pfadfrage immer noch ungeklärt ist habe ich das jetzt mal mit einem Testscript versucht. Ein ganz einfaches Script abgelegt in

home/usr/perl

Da liegt übrigens auch die Directory mit den Html-files drinne (die geparst werden sollen) als die hat den Pfad /home/usr/perl

Frage nebenbei: muss ich denn die slashes am Anfang - also vor "home" mitangeben?

Ich will erstmal die Frae der Pfade klären - dann seh ich weiter. Dann kann ich mich nochmals an das eigengtliche Script machen.

Hier die beiden Testscripte mit den jeweiligen Ergebnissen:
Also es sind entstanden noch zwei weitere scirpte - zum Testen


Was meinst du / meint Ihr zu den Resultaten!?

Freu mich auf einen Tipp hierzu:

lin


das perl_script_two:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13

#!/usr/bin/perl

use strict;
use warnings;
use diagnostics;
use File::Find::Rule;

my @files = File::Find::Rule->file()
                 ->name('*.html')
                 ->in( 'home/usr/perl/htmlfiles' );
foreach my $file(@files) {
        print $file, "\n";
}



Rückmeldung:

suse-linux:/usr/perl # perl perl_script_two.pl
Can't stat home/usr/html.files: No such file or directory
at /usr/lib/perl5/site_perl/5.12.1/File/Find/Rule.pm line 594
suse-linux:/usr/pel #



das perl_script_three

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13

#!/usr/bin/perl

use strict;
use warnings;
use diagnostics;
use File::Find::Rule;

my @files = File::Find::Rule->file()
                 ->name('*.html')
                 ->in( 'home/usr/html.files' );
foreach my $file(@files) {
        print $file, "\n";
}


[b] Rückmeldung: [/ḅ]

Could not open the dir home/usr/perl/html.files: No such file or directory at perl_script_three.pl line 9. readdir() attempted on invalid dirhandle THISDIR at perl_script_three.pl line
10 (#1)
(W io) The dirhandle you're reading from is either closed or not really
a dirhandle. Check your control flow.
closedir() attempted on invalid dirhandle THISDIR at perl_script_three.pl line
11 (#2)
(W io) The dirhandle you tried to close is either closed or not really
a dirhandle. Check your control flow.

suse-linux:/usr/perl #

View full thread perl im debug-modus fahren