Leser: 18
1
2
3
4
5
open my $WFH, ">>", $dest_file or die $!;
my $tab = "\t";
foreach (@files){
print $WFH $tab."- ".$_."\n";
}
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
$ perl -we'
open my $fh, ">>", "tabfile.txt" or die $!;
my $tab = "\t";
my @files = qw/ a.foo b.foo c.foo /;
foreach (@files) {
print $fh $tab."- ".$_."\n";
}'
$ cat tabfile.txt
- a.foo
- b.foo
- c.foo
$ hexdump -c tabfile.txt
0000000 \t - a . f o o \n \t - b . f o
0000010 o \n \t - c . f o o \n
000001b
2010-07-06T11:18:44 PETER_PAN2009Mist, das war wirklich in Ordnung