Dir ohne Unterordner in .txt Datei u.ä.. Wie? - #101764 (Allgemeines zu Perl)

renee

2007-11-03 16:23

User since
2003-08-04
14371 Artikel
ModeratorIn

Code (perl): (dl )

1
2

# slurpe Inhalt der Datei
my $Data = do{ local (@ARGV,$/) = "C:/Freunde/$Dateiname"; <>};

mal etwas erläutert:

Du weißt wie Du einfach eine Datei einlesen kannst, die Du als Parameter an das Skript übergeben hast?

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;

while( <> ){
    print;
}

Code: (dl )

C:\>more text.txt
hallo
dies
ist ein
test

C:\>skript.pl text.txt
hallo
dies
ist ein
test

So kann man Dateien, die in @ARGV ganz einfach einlesen. Deswegen setze ich ein local @ARGV in dem Snippet. So kann ich den gleichen Effekt nutzen wie in diesem kleinen Skript.

Das andere was ich machen muss ist das Verändern von $/. Was man damit machen kann, habe ich z.B. hier erklärt: http://reneeb-perlblog.blogspot.com/2007/10/ntzlic...

Mehr zu $/ kann man auch in perlvar nachlesen...

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/