die frage nach der ursache eines fehlers ... (Allgemeines zu Perl)

[thread]14245[/thread]

die frage nach der ursache eines fehlers ...

Leser: 26

Articles: hide open all | hide show old branches

+6 replies

jan999

2009-11-11 19:24

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

Moin !

ich habe mir einige Zeilen PERL gebastelt um eine Datei zu Parsen - besser gesagt es ist abgeleitet aus einem einfachen Beispiel.

Eingelesen wird unter WIN eine TAB-getrennte ASCII-Datei und nun möchte ich mir zunächst die Werte der 3.Spalte ausgeben - in Perl habe ich diese $ATTRIBUTES benannt.

Aber es werden keine Werte im Befehlszeilenfenster gelistet.

Kann mir einer von Euch sagen warum das so ist ??? und was ich ggf. ändern müßte.

Gruß Jan :-)

hier der Code:

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;

# Parser einbinden
my $osmolt_file = $ARGV[0];
my $result_file = $ARGV[1];
my $count_lines = 0;
my $count_ctimes = 0;
ReadData();

# Filter anlegen
sub ReadData
{
	#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

		if ($count != 0)
		{
			#Zeile auftrennen
			my($point,$title,$attributes,$icon,$icon_size,$iconOffset) = split( /\t/, $_, 7 );
			print $point." - ".$attributes." * ";
			$count_lines++;
     		  print $attributes;

			if (length $attributes > 0 )
     		{
			   $desc="<i>Es liegen Daten vor !!!!</i>";
			} else {
			   $desc="<i>keine Leerungszeiten vorliegend!</i>";
			}
			print $out $point."\t".$title."\t".$desc."\t".$icon."\t".$icon_size."\t".$iconOffset."\n";
		} else {
		    # einfache Datenweitergabe der Kopfzeile
			print $out $_."\n";
		}

		#Anzahl der eingelesenen Zeilen
		$count++;
		
	}# end-while

	close( FH );
	close $out;


}

... der Funktionsaufruf:

Code: (dl )

perl tagtest.pl tagtest.txt tagtest_format.txt

... hier noch meine Daten:

Quote
point title description icon iconSize iconOffset
54.0726594,9.9844612 parking | operator | apotheke.png 20,20 -10,-10
53.935133,10.3108308 parking_tickets | operator | apotheke.png 20,20 -10,-10
53.8111175,10.3783857 parcel_pickup;parcel_mail_in | operator | 113 apotheke.png 20,20 -10,-10
53.8110639,10.3782336 parcel_mail_in | operator | apotheke.png 20,20 -10,-10
54.0446766,10.7096604 excrement_bags | operator | apotheke.png 20,20 -10,-10
54.044374,10.707594 excrement_bags | operator | apotheke.png 20,20 -10,-10

+2 replies

betterworld

2009-11-11 19:35

User since
2003-08-21
2614 Artikel
ModeratorIn

user image

Das Script ist zu lang. Versuche, die Teile zu entfernen, die nichts mit dem Problem zu tun haben. Dann poste das Script noch einmal, wenn es so kurz ist, dass man es gut ueberblicken kann. Und poste auch die Ausgabe, und welche Ausgabe Du erwartest.

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class

topeg

2009-11-11 22:53

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Vorweg:
Das beigefügte Beispiel ist nicht über Tabs getrennt, hat das einen bestimmten Grund?

Erstens:
Beim print das "\n" nicht vergessen, sonst puffert das Perl intern und du siehst erst was am ende Programms, oder wenn der Puffer voll ist, oder wenn das nächste mal "\n" ausgeben werden soll.

Zweitens:
es währe schön wenn du die in der Funktion genutzeten werte an die Funktion übergeben würdest.

Drittens:
die Konstruktion

Code (perl): (dl )

if ($count != 0)
{
  #...
} else {
  # einfache Datenweitergabe der Kopfzeile
  print $out $_."\n";
}

Ist nicht nötig
du kannst vor dem "while" nach dem öffnen der Dateien einfach schreiben

Code (perl): (dl )

print $out <$in>;

Viertens:
Das beim "open" angewöhnen immer die drei-Parameter-Form zu verwenden. in "$osmolt_file" könnte ja auch stehen "> /pfad/zu/einer/wichtigen/datei" dann würde sie gelöscht. nicht schön oder?

Fünftens:
Das Filehandle sollte immer eine Variable sein.

Sechstens:
Du kannst Werte mittels "return" au der Funktion zurück liefern. Damit hättest du Funktion komplett von globalen werten entkoppelt, das macht das Wiederverwenden einfacher.

Und hier die überarbeitete Version:

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;

# Parser einbinden
my ($desc,$count_lines)=ReadData($ARGV[0],$ARGV[1]);

# Filter anlegen
sub ReadData
{
  my $osmolt_file=shift;
  my $result_file=shift;
  my $desc = '';
  my $count=0;

  #Filterdatei oeffnen
  open( my $in, '<', $osmolt_file ) || die( "Can't open $osmolt_file: $!" );
  open( my $out, '>', $result_file) || die( "Can't open $result_file: $!" ) ;

  # einfache Datenweitergabe der Kopfzeile
  print $out <$in>;


  #fuer jede Zeile
  while( my $line=<$in> )
  {
    chomp($line);             # Newlines loeschen
    $line=~s/^\s+//;          # fuehrende Leerzeichen entfernen
    $line=~s/\s+$//;          # nachfolgende Leerzeichen entfernen
    next if( $line=~/^#/ );   # Kommentare ueberspringen
    next if( $line=~/^s*$/ ); # Leerzeilen ueberspringen

    #Zeile auftrennen
    my($point,$title,$attributes,$icon,$icon_size,$iconOffset) = split( /\t/, $line, 7 );
    print "$point - $attributes * \n";
    print "$attributes\n";

    if ($attributes ne '')
    {
      $desc="<i>Es liegen Daten vor !!!!</i>";
    } else {
      $desc="<i>keine Leerungszeiten vorliegend!</i>";
    }

    print $out "$point\t$title\t$desc\t$icon\t$icon_size\t$iconOffset\n";
    $count++;
  }# end-while

  close($in);
  close($out);

  return($desc,$count);
}

+3 replies

havi

2009-11-11 20:51

User since
2003-08-04
2036 Artikel
BenutzerIn

Habs dir mal ein wenig abgeändert...

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;

# Parser einbinden
my $osmolt_file = $ARGV[0];
my $result_file = $ARGV[1];

my $count_lines  = 0;
my $count_ctimes = 0;
ReadData();

# Filter anlegen
sub ReadData {

        #Filterdatei oeffnen    
        open(my $fh,  "<", $osmolt_file) or die( "$osmolt_file: $!" );
        open(my $out, ">", $result_file) or die ("Can't open html output file: ".$result_file);
        my $count = 0;
        my $desc  = "";

        #fuer jede Zeile
        while(my $zeile = <$fh>) {

                chomp $zeile;
                # Newlines loeschen
                $zeile =~ s/^\s+//;     # fuehrende Leerzeichen entfernen
                $zeile =~ s/\s+$//;     # nachfolgende Leerzeichen entfernen
                
                next if( /^#/ );   # Kommentare ueberspringen   
                next if( /^s*$/ ); # Leerzeilen ueberspringen
                
                if ($count != 0) {
                        #Zeile auftrennen       
                        my($point,$title,$attributes,$icon,$icon_size,$iconOffset) = split(/\t/, $zeile, 7 );
                
                        print $point." - ".$attributes." * ";
                        $count_lines++;
                        print $attributes;
                 
                        if (length $attributes > 0 ) {
                                $desc="<i>Es liegen Daten vor !!!!</i>";
                        }
                        else {
                                $desc="<i>keine Leerungszeiten vorliegend!</i>";
                        }
                        print $out join("\t", $point, $title, $desc, $icon, $icon_size, $iconOffset)."\n";              
                }
                else {              
                        # einfache Datenweitergabe der Kopfzeile
                        print $out $zeile."\n";
                }               
                # Anzahl der eingelesenen Zeilen
                $count++;

        }# end-while

        close($fh)  or die $!;
        close($out) or die $!;

} # while

Verwende bei open immer die 3. Argumenten schreibweise + immer lexikalische Variablen)
besser $zeile wie $_ (while usw.)
Ausgabe join...

Warum dein Skript nicht funktioniert... ? sind die Daten wirklich tab-getrennt ?? ;)
Last edited: 2009-11-11 20:52:59 +0100 (CET)

Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/

+2 replies
jan999

2009-11-11 21:09

User since
2009-04-02
109 Artikel
BenutzerIn

hi !!!

habe das einmal bei mir reinkopiert und dann gestartet - bekomme dann aber immer wiederkehrend folgende Meldungen

Quote
..
Use of uninitialized value $_ in pattern match (m//) at tagtest.pl line 31, <$fh
> line 291.
Use of uninitialized value $_ in pattern match (m//) at tagtest.pl line 32, <$fh
> line 291.
..
- pq
  
  2009-11-11 21:37
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  du musst die regex auf die variable $zeile anwenden.
  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-11-11 19:24.