hex zeichen: unerwuenschte hex zeichen a0 entfernen - #69835 (Allgemeines zu Perl)

sabrina

2006-09-13 17:31

User since
2006-08-03
264 Artikel
BenutzerIn
[default_avatar]

edit meist du ich muss angeben wo es stht das kann ich nicht ich hab keine ueberschrieft oder was soll "hallo no_break_zeichen welt" bedeuten

hier meine versuche:

Code: (dl )

#!/usr/bin/perl
use strict;
use warnings;
my @files = qw(bla1.txt bla2.txt bla3.txt bla4.txt);
my $output = 'blagesamt.txt';
open(my $write_fh, '>', $output) or die $!;
for my $file(@files){
my $string =~ tr/\xa0//d;
   open(my $fh,'<',$file) or die $!;
   while(my $line = <$fh>){
        print $write_fh $line;
        }
   close $fh;
   }
close $write_fh or die $!;

und meine dazugehoerigen fehlerausgaben

Code: (dl )

Use of uninitialized value in transliteration (tr///) at so_wie_es_sesin_soll5.pl line 8.

und zwar vier mal die gleiche fehlermeldung
und meine liste bleibt unveraendert
Also weiter mein naechster code (ist eigendlich meine erster verdacht gewesen) da bekomme ich keine fehlermeldungen und meine ausgabe bleibt wie oben unverandert mit den no brack zeichen

Code: (dl )

  #!/usr/bin/perl
use strict;
use warnings;
my @files = qw(bla1.txt bLa2.txt bla3.txt bla4.txt);
my $output = 'blagesamt.txt';
open(my $write_fh, '>', $output) or die $!;
for my $file(@files){
   open(my $fh,'<',$file) or die $!;
   while(my $line = <$fh>){
        print $write_fh $line;
          my $string =~ tr/\xa0//d;
        }
   close $fh;
   }
close $write_fh or die $!;

beim naechsten code hab ich keine ahnung was ich da mache ,dacht ich muesste deine code stuecke mit einbauen. Kannst du mir nen tipp geben welche version am naehesten drann ist, dann kann ich vielleicht wieder alleine weiter machen. ausgabe der datei immer noch unveraendert

Code: (dl )

  #!/usr/bin/perl
use strict;
use warnings;

my @files = qw(bla1.txt bla2.txt bla3.txt bla4.txt);
my $output = 'blagesamt.txt';
open(my $write_fh, '>', $output) or die $!;
for my $file(@files){
   open(my $fh,'<',$file) or die $!;
   while(my $line = <$fh>){
    my $no_break_space = chr(0xa0);
       $write_fh $line.= $no_break_space/_/g;
        print $write_fh $line;
        $write_fh $line =~ s/$no_break_space/_/g;
            print $write_fh $line
        }
   close $fh;
   }
close $write_fh or die $!;

fehlermeldungen

Code: (dl )

syntax error at so_wie_es_sesin_soll5.pl line 14, near "$write_fh $line "
    (Missing operator before $line?)
Scalar found where operator expected at so_wie_es_sesin_soll5.pl line 14, near "$write_fh $line"
    (Missing operator before $line?)
syntax error at so_wie_es_sesin_soll5.pl line 12, near "$write_fh $line"
syntax error at so_wie_es_sesin_soll5.pl line 14, near "$write_fh $line "
Execution of so_wie_es_sesin_soll5.pl aborted due to compilation errors

wuerde denn also eher nicht nehmen\n\n