Hello Alex
many thanks for the answer.
well i put all to home > usr > perl
the story as a whole: After a first trial i saw that i have troubles with the
I-O-Handles and with the paths on the OpenSuse Linux version 11.3 i have to set
the paths - and as being not very familiar with Perl and Linux either i decided
to do some preliminary works with very very simple scripts....:
here we go: i have two scripts – that are being created in order to find the
right paths but i have no luck. The scripts are placed in
home > usr > perl
i have the two scripts
a. perl_script_two.pl
b. perl_script_three.pl
And there also is the directory with the 20000 html-files. See further above.
Well i found out that i made some mistakes while talking bout the html-files:
Note: there are more than 20 000 Html files in the directory that is called
htmlfiles [B]Note[/B] i renamed it to htmlfiles - instead of html.files
Imortant: But the files itself are all named like the following sheme:
einzelergebnis1...
einzelergebnis2...
einzelergebnis3a...
einzelergebnis3b...
einzelergebnis3d...
You can see this in a consequent regard in the script two: Here i name it
accordingly...
my @files = File::Find::Rule->file()
->name('einzelergebnis*.html')
So here we go: i start them in the console like the following and get the
following results: see below!
suse-linux:/usr/perl # perl perl_script_two.pl
#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use File::Find::Rule;
my @files = File::Find::Rule->file()
->name('einzelergebnis*.html')
->in( '/home/usr/perl/htmlfiles' );
foreach my $file(@files) {
print $file, "\n";
}
Results:
Can't stat /home/usr/perl/htmlfiles: No such file or directory
at /usr/lib/perl5/site_perl/5.12.1/File/Find/Rule.pm line 594
i go crazy - what is wrong here!?
Love to hear from you
best regards
-----Ursprüngliche Nachricht-----
Von: "Alexey Mishustin" <shum...@shumkar.ru>
Gesendet: 02.10.2010 13:27:23
An: beginners@perl.org
Betreff: Re: path names in a perl-script: a newbie-question regarding I-O
convertions on OpenSuse Linux 11.3
>2.10.2010, 15:22:03, Alexey Mishustin wrote:
>
>> 2.10.2010, 13:57:54, "jobst müller" wrote:
>
>>> #!/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/html.files' );
>
>->in( '/home/usr/perl/html.files' );
>
>Or ->in( '/home/user/perl/html.files' ); ?
>
>You wrote, you put the files to /home/user/ ?
>
>--
>Regards,
>Alex
>
>
>--
>To unsubscribe, e-mail: beginners-unsubscr...@perl.org
>For additional commands, e-mail: beginners-h...@perl.org
>http://learn.perl.org/
>
>
___________________________________________________________
WEB.DE DSL Doppel-Flat ab 19,99 €/mtl.! Jetzt auch mit
gratis Notebook-Flat! http://produkte.web.de/go/DSL_Doppel_Flatrate/2
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
