Programmstart mit Schalter? (Allgemeines zu Perl)

EagleFox

2006-04-12 12:13

User since
2006-04-10
66 Artikel
BenutzerIn
[default_avatar]

Hallo Leute,

wie bekomme ich es eigentlich hin, dass ein Programm mit Schalter startet.

Also ich habe ein Programm (heisst cut.pl) und das soll in einer Datei bestimmte Sachen erledigen und diese Datei unter neuem Namen speichern.

Wie schaffe ich es, dass ich den Dateinamen der zu bearbeitenden Datei als Schalter mit angebe. Also z.B.

Code: (dl )

./cut.pl cuzno1_01.dat

wobei cuzno1_01.dat die Datei ist, die dann unter cuzno1_01.cut.dat wieder gespeichert werden soll. Alle zu bearbeitenden Dateien enden mit .dat. Die neuen Dateien sollen immer mit .cut.dat enden.

Jemand ne Idee?

renee

2006-04-12 13:02

User since
2003-08-04
14371 Artikel
ModeratorIn

Wenn Du das Programm mit cut.pl cuzno1_01.dat aufrufst, dann steht der Dateiname in $ARGV[0]

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;

print $ARGV[0];

Wenn Du mit "Schaltern" (Optionen) arbeiten willst, dann empfehle ich Dir CPAN:

Getopt::Long. Da hatten wir gerade diese Woche auch einen anderen Thread...

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/

EagleFox

2006-04-12 13:21

User since
2006-04-10
66 Artikel
BenutzerIn
[default_avatar]

Super! Vielen Dank! Das klappt schon mal!

Wie splitte ich nun noch den Dateinamen auf, so dass das Programm aus cuzno1_01.dat ein cuzno1_01.cut.dat macht. Also aus den Dateien, die alle mit .dat enden, sollen Namen werden, die mit .cut.dat enden.

renee

2006-04-12 13:34

User since
2003-08-04
14371 Artikel
ModeratorIn

Code: (dl )

1
2
3

my ($file,$suffix) = $ARGV[0] =~ /(.*?)(\.[^\.]+)$/;
my $original = $ARGV[0];
my $cut = $file.'.cut'.$suffix;

oder besser CPAN:

File::Basename verwenden

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/

EagleFox

2006-04-12 14:10

User since
2006-04-10
66 Artikel
BenutzerIn
[default_avatar]

Genial!
Das läuft wunderbar! perl werde ich wohl nie verstehen, das ist so kryptisch!

Aller besten Dank!

renee

2006-04-12 16:32

User since
2003-08-04
14371 Artikel
ModeratorIn

Das hat mit Perl rein gar nichts zu tun. Das sind ganz normale Reguläre Ausdrücke, wie man sie in vielen Programmiersprachen verwenden kann.

Lesestoff zu Regulären Ausdrücken:

perlreref
perlre
perlrequick
perlretut

http://www.regenechsen.de

Und wer auf die Regulären Ausdrücke verzichten will, kann ja auch CPAN:

File::Basename verwenden.

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/

Crian

2006-04-12 17:01

User since
2003-08-04
5872 Artikel
ModeratorIn

Naja mit File::Basename kann man den Namen aber auch nicht am letzten Punkt auftrennen... und das ist ein ziemlich einfach regulärer Ausdruck. Den kann man auch als Anfänger mit wenig Einlesen leicht verstehen.

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

Relais

2006-04-12 17:10

User since
2003-08-06
2246 Artikel
ModeratorIn

[quote=Crian,12.04.2006, 15:01]Naja mit CPAN:

File::Basename kann man den Namen aber auch nicht am letzten Punkt auftrennen.[/quote]
Da ist ein nicht zuviel!

CPAN:

File::Basename - Parse file paths into directory, filename and suffix.

Zugegeben, die Bedienbarkeit jener Funktion ist nicht das gelbe vom Ei.

Erst denken, dann posten --
27. Deutscher Perl- u. Raku -Workshop (Termin wird noch gesucht) 2025 in München.

Winter is Coming

renee

2006-04-12 17:11

User since
2003-08-04
14371 Artikel
ModeratorIn

[quote=Crian,12.04.2006, 15:01]Naja mit File::Basename kann man den Namen aber auch nicht am letzten Punkt auftrennen... und das ist ein ziemlich einfach regulärer Ausdruck. Den kann man auch als Anfänger mit wenig Einlesen leicht verstehen.[/quote]
und was ist dann $suffix? *g*

Quote
($name,$path,$suffix) = fileparse($fullname,@suffixlist);

\n\n

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/

Strat

2006-04-12 17:40

User since
2003-08-04
5246 Artikel
ModeratorIn

Code: (dl )

my ($name, $path, $suffix) = fileparse($fullname, qw(xls doc txt));

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/