[linux-l] Perl Problemchen

[Mike Dornberger]

Hi Bodo,

On Wed, May 25, 2005 at 05:38:43PM +0200, Bodo Eichstädt wrote:
> Hallo Liste
> 
> folgendes Codestück funktionierte immer.

Wo ist dann das Problem? SCNR. :)

Hm, der konkrete Aufruf (mit Parameterübergabe) wäre vielleicht ganz
hilfreich gewesen, bzw. nen simples Beispiel, das nicht funktioniert.

> sub get_time {          # 1. Param -> Zeit in Sekunden
>                         # 2. Param -> 0 Zeit, 1 Datum, 2 Zeit und Datum 
> 
>                         # 3. Param -> Trennstring zw. Datum und Zeit
> 
>    my @time = localtime($_[0]);     #hier hakt es!!!!

Vielleicht ist das so eine Referenzen-Geschichte? Will localtime auf der
übergebenen Variable schreiben?

Vieleicht hilft es ja schon, erstmal die Parameter zu benennen und dann
damit zu arbeiten:

  my ($sectime, $timestr, $delimstr) = (shift, shift, shift);

  #debug
  print "$sectime\n";

  my @time = localtime($sectime);

Wenn das print irgendwas wie "SCALAR(hexadresse)" ausgibt, hast du wohl ne
Referenz übergeben. Du kannst das dann evt. so korrigieren:

  $sectime = $$sectime if ref $sectime;

Öh... Achso: untested *g*.

Gruß,
 Mike