Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
Leser: 2
 |
|< 1 2 3 >| |  |
23 Einträge, 3 Seiten |
![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl
use strict;
use warnings;
my @files = qw(ZIEL1.txt ZIEL2.txt ZIEL3.txt ZIEL4.txt);
my $output = 'ZIELgesamt.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;
}
close $fh;
}
close $write_fh or die $!;
![[Homepage]](/battie/theme/default/homepage.gif)
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl
use strict;
use warnings;
my $no_break_space = chr(0xa0);
my $string ="hallo";
$string .= $no_break_space;
$string .= "welt\n";
print $string;
$string =~ s/$no_break_space/_/g;
print $string;
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#!/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 $!;
Use of uninitialized value in transliteration (tr///) at so_wie_es_sesin_soll5.pl line 8.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#!/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 $!;
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#!/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 $!;
1
2
3
4
5
6
7
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
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
|
|< 1 2 3 >| | |
23 Einträge, 3 Seiten |
Schrift
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
![[Powered by Battie]](/battie/img/powered.png)
