sub aus sub aufrufen ... (Allgemeines zu Perl)

[thread]13920[/thread]

sub aus sub aufrufen ...

Leser: 28

Articles: hide open all | hide show old branches

+10 replies

jan999

2009-08-24 18:37

User since
2009-04-02
109 Artikel
BenutzerIn
[default_avatar]

Moin !

ich habe eine Funktion geschrieben die eine Sub (InitFilter) aufruft und aus dieser wird wieder eine andere (CreateCollectionTimeTable) aufgerufen.

Doch wie meine Kontrollausgaben zeigen wird diese überhaupt nicht ausgeführt.

Kann mir einer sagen wo mein Fehler liegt - vermutlich etwas im Bereich der Aufrufen.

Gruß Jan :-)

Hier der Code und einige Musterzeilen weiter unten:
---------------------------------------------------

Code (perl): (dl )

#!/usr/bin/perl

# Parser einbinden
my $osmolt_file = $ARGV[0];
my $result_file = "newfile.txt";
InitFilter();

# Filter anlegen
sub InitFilter
{
        #Filterdatei oeffnen
        open( FH, $osmolt_file ) or die( "$osmolt_file: $!" );
    open ($out, ">", $result_file) || die ("Can't open html output file: ".$result_file) ;
        my $count = 0;
        
        #fuer jede Zeile
        while( <FH> )
        {
                chomp;                          # Newlines loeschen
                s/^\s+//;                       # fuehrende Leerzeichen entfernen
                s/\s+$//;                       # nachfolgende Leerzeichen entfernen
                next if( /^#/ );        # Kommentare ueberspringen
                next if( /^s*$/ );      # Leerzeilen ueberspringen

                #Zeile auftrennen
                my($point,$title,$collection_times,$icon,$icon_size,$iconOffset) = split( /\t/, $_, 7 );

                if (length $desc > 0 )
                {
                  my $code = "<table width=\"100\" border=\"0\" cellpadding=\"0\" cellspacing=\"1\">";

                  $icon="postbox_collection.png";
                  CreateCollectionTimeTable();
                  $collection_times=$code;
                }  
                                
                print $out $point."\t".$title."\t".$collection_times."\t".$icon."\t".$icon_size."\t".$iconOffset."\n";
                #Anzahl der eingelesenen Zeilen
                $count++;
                
        }

        close( FH );
        close $out;
                
        print $count." Zeilen bearbeitet";      
}       

#erstellen der Tabelle mit den Leerungszeiten
sub CreateCollectionTimeTable
{

my(@days) = split( /;/, $collection_times );

foreach $day (@days){
                $_ = $day;
                s/^\s+//;                       # fuehrende Leerzeichen entfernen
                s/\s+$//;                       # nachfolgende Leerzeichen entfernen
        my($dayname,$daytime) = split( / /, $_ );

                $code .= "<tr><td>".$dayname."</td><td>".$daytime."</td></tr>";
        
                print "|".$dayname."| - |".$daytime."|\n";
         
                $code .= "</tr>";
                
}

#Tabellen-Abschluss
$code .= "</table>";

print "------------------------\n";
print $code."\n";
}

Hier etwas MusterDaten:
-----------------------

Quote
point title description icon iconSize iconOffset
7160451.207101509,1147705.0185860004 Postkasten post_box.png 20,20 -10,-10
7157683.521090686,1145544.0289712767 Postkasten post_box.png 20,20 -10,-10
7157224.351292516,1145574.0852337866 Postkasten post_box.png 20,20 -10,-10
7156392.074875539,1147935.8952098733 Postkasten post_box.png 20,20 -10,-10
7150617.771846423,1145853.7977182642 Postkasten post_box.png 20,20 -10,-10
7153581.720383347,1171427.402445828 Postkasten post_box.png 20,20 -10,-10
7148605.16611688,1172264.7810513058 Postkasten post_box.png 20,20 -10,-10
7133011.067517117,1143746.263723012 Postkasten Mo-Fr 17:00; Sa 10:00 postbox_collection.png 20,20 -10,-10

sid burn

2009-08-24 18:43
User since
2006-03-29
1520 Artikel
BenutzerIn
Du solltest "use strict" und "use warnings" nutzen. Dann wäre dir der Fehler wahrscheinlich selber aufgefallen.

In Zeile 28 steht folgendes:
Code: (dl )

if (length $desc > 0 )
Du hast $desc aber nirgendswo vorher definiert! Daher wird es bei einer Abfrage mit length als leerer String angesehen mit der länge 0. 0 ist nicht größer 0, daher wird der if block nie ausgeführt, und deine Funktion nie aufgerufen.
Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
GwenDragon

2009-08-24 18:44

User since
2005-01-17
14548 Artikel
Admin1

1) Verwende doch bitte
use strict; use warnings;

2) Zeile 28
Wo liest du denn $desc ein?

Vielleicht sagt dir das Skript jetzt mehr. ;)
die Drachin, Gwendolyn

Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
pq

2009-08-24 18:51

User since
2003-08-04
12208 Artikel
Admin1

und hier noch der wiki-link: UseStrict
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
+6 replies

topeg

2009-08-24 19:52

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Es währe noch schön, wenn du Variablen nicht als globale nutzen würdest, sondern an die Funktionen übergäbest.

+5 replies

jan999

2009-08-24 19:58

User since
2009-04-02
109 Artikel
BenutzerIn
[default_avatar]

hi !

erst einmal vielen dank - da war ich wohl etwas schnell bei der sache und hatte nur eine leere datei angelegt und losgelegt.

deshalb auch

use strict;
use warnings;

vergessen.

mal sehen was mir jetzt gesagt wird.

gruß Jan :-)

+4 replies

jan999

2009-08-26 18:30

User since
2009-04-02
109 Artikel
BenutzerIn
[default_avatar]

Moin !

ich habe jetzt einmal die beiden Zeilen ergänzt um die Fehler besser zu finden. Aber leider kann ich nicht alles beseitigen und würde mich freuen, wenn mir einer weiterhelfen kann. Meine Gedanken zu den einzelnen Meldungen habe ich unten eingefügt - oder auch wo ich meine es berücksichtigt zu haben.

Primär geht es mir vorerst darum die Funktion fehlerfrei zu bekommen. Was die Rückgabe der Werte aus der Unterfunktion ist dieses wahrscheinlich von mir zu realisieren, da ich dieses mit einem kleinen Testbeispiel schon habe nachvollziehen können.

Quote
D:\DATEN\JAN\openstreetmap\Perl_4osm\postkasten>perl post.pl postkasten.txt
"my" variable $icon masks earlier declaration in same scope at post.pl line 41.
"my" variable $collection_times masks earlier declaration in same scope at post.
pl line 42.
"my" variable $collection_times masks earlier declaration in same scope at post.
pl line 43.

==> Sind doch von mir mit MY deklariert.

Quote
syntax error at post.pl line 38, near ")
{"
syntax error at post.pl line 45, near "}else"

==> es ist doch ein IF-statement definiert und auch die Klammern sind da !

Quote
Global symbol "$out" requires explicit package name at post.pl line 51.
Global symbol "$point" requires explicit package name at post.pl line 51.
Global symbol "$title" requires explicit package name at post.pl line 51.
Global symbol "$desc" requires explicit package name at post.pl line 51.
Global symbol "$icon" requires explicit package name at post.pl line 51.
Global symbol "$icon_size" requires explicit package name at post.pl line 51.
Global symbol "$iconOffset" requires explicit package name at post.pl line 51.
Global symbol "$count" requires explicit package name at post.pl line 53.
syntax error at post.pl line 55, near "}"
post.pl has too many errors.

==> Auch diese Variablen sind der Zeile mit dem SPLIT-Commando mit einem MY versehen !

Jetzt noch der Code wie ich diesen zur Zeit habe. Die Musterdaten stehen ja oben.

Gruß Jan :-)

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;

# Parser einbinden
my $osmolt_file = $ARGV[0];
my $result_file = "newfile.txt";
my $count_postboxes = 0;
my $count_ctimes = 0;
InitFilter();

# Filter anlegen
sub InitFilter
{
        #Filterdatei oeffnen
        open( FH, $osmolt_file ) or die( "$osmolt_file: $!" );
    open (my $out, ">", $result_file) || die ("Can't open html output file: ".$result_file) ;
        my $count = 0;
        my $desc = "";
        
        
        #fuer jede Zeile
        while( <FH> )
        {
                chomp;                          # Newlines loeschen
                s/^\s+//;                       # fuehrende Leerzeichen entfernen
                s/\s+$//;                       # nachfolgende Leerzeichen entfernen
                next if( /^#/ );        # Kommentare ueberspringen
                next if( /^s*$/ );      # Leerzeilen ueberspringen

                #Zeile auftrennen
                my($point,$title,$collection_times,$icon,$icon_size,$iconOffset) = split( /\t/, $_, 7 );
                
                $count_postboxes##;

                if (length $collection_times > 0 )
                {
                  my $code = "<table width=\"100\" border=\"0\" cellpadding=\"0\" cellspacing=\"1\">";

                  $icon = "postbox_collection.png";
                  CreateCollectionTimeTable($collection_times);
                  
                  $desc=$collection_times;
                  $count_ctimes++;
                  
                }else{
                
                   $desc="<i>keine Leerungszeiten vorliegend!</i>";
                }
                
                print $out $point."\t".$title."\t".$desc."\t".$icon."\t".$icon_size."\t".$iconOffset."\n";
                #Anzahl der eingelesenen Zeilen
                $count++;
                
        }

        close( FH );
        close $out;
                
        print $count." Zeilen bearbeitet";      
        print $count_postboxes." Postkaesten";  
        my $prozent_collection = 100 / $count_postboxes * $collection_times;
        print $collection_times." mit Leerungszeiten (".$prozent_collection.")";        
}       

#erstellen der Tabelle mit den Leerungszeiten
sub CreateCollectionTimeTable
{
        my $ctimes = shift ;
        my(@days) = split( /;/, $ctimes );

foreach my $day (@days){
                $_ = $day;
                s/^\s+//;                       # fuehrende Leerzeichen entfernen
                s/\s+$//;                       # nachfolgende Leerzeichen entfernen
        my($dayname,$daytime) = split( / /, $_ );

                $code .= "<tr><td>".$dayname."</td><td>".$daytime."</td></tr>";
        
                print "|".$dayname."| - |".$daytime."|\n";
         
                $code .= "</tr>";
                
}

#Tabellen-Abschluss
$code .= "</table>";

print "------------------------\n";
print $code."\n";

Modedit: Code bitte in CODE-Tags stellen!
Last edited: 2009-08-26 18:46:30 +0200 (CEST)

+2 replies
Gast wer

2009-08-26 18:51
Zeile 35:
Code: (dl )

$count_postboxes##;
Was willst perl damit sagen?!
- jan999
  
  2009-08-26 20:27
  User since
  2009-04-02
  109 Artikel
  BenutzerIn
  hi !
  
  das sollte eigentlich
  
  Code (perl): (dl )
  
  $count_postboxes++;
  
  heißen wie Du schon ahnst !
  
  gruß Jan .-)
pq

2009-08-26 19:21

User since
2003-08-04
12208 Artikel
Admin1

die vielen fehlermeldungen wegen fehlenden deklarationen sind hier bestimmt nur folgefehler von fehlenden klammern etc. zumindest auf den ersten blick.
du kannst das ganz einfach herausfinden, indem du block für block auskommentierst, bis es fehlerfrei kompiliert. dann stück für stück wieder einkommentieren, dann siehst du, wo der syntaxfehler ist.
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem

View all threads created 2009-08-24 18:37.