0 in string einfügen (gelöst) - #156663 (Allgemeines zu Perl)

FIFO

2012-03-07 07:29

User since
2005-06-01
469 Artikel
BenutzerIn

user image

2012-03-07T03:18:43 Alexander

Code (perl): (dl )

# 
my @time = (Mon,Mar,3,12:24:05,2012);
        if ($time[2] =~ /[\d]/) {
  $time[2] = "0$time[2]";}

Da fehlen aber quotes ... Formatierung mit führender 0:

Code (perl): (dl )

1
2

my @time = ('Mon', 'Mar', 3, '12:24:05', 2012);
$time[2] = sprintf('%02d', $time[2]);

edit: =~ zu = korrigiert, sorry

Quote
Außerdem würde ich auch gerne Werte die ich in einen @array einlese auf eine gewisse Anzahl beschränken, da dann beim Ausdruck auf dem Bildschirm die Liste schöner ist

Da habe ich noch keine Lösung

Ergebnis sollte dann so aussehen, dass das zweite Elemente nur max 8 Elemente vor dem Punkt ausgibt
...

Könnte das klappen oder gibt es eine bessere Lösung?

Kürzung des Stringteils vor der Extension (bzw. des Filenames, auch wenn keine Extension da (nicht getestet):

Code (perl): (dl )

$filename =~ s/^(.{7})(?=[^.]{2,}.*(\.[^.]+)?$)/$1~$2/;

edit: ist Murks, s.u.

Was ist mit Dateinamen, die in den ersten 8 Zeichen übereinstimmen?

Besser: Arbeite mit File::Basename.
Last edited: 2012-03-07 17:36:04 +0100 (CET)

Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"