Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
Leser: 3
 |
|< 1 2 >| |  |
15 Einträge, 2 Seiten |
![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
![[Homepage]](/battie/theme/default/homepage.gif)
1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use warnings;
use strict;
my $string = "Gernot;Havranek;Havi";
print $string, "\n";
my @array = join("\n", split(/;/, $string));
print @array;
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
$anz_zeilen=0;
# Eingabe durch User
print" TAB_SORT.pl schreibt eine Spalte aus mehreren heraus\n";
print"\n";
print" Anzahl Zeilen des Feldes : ";
$anz_zeilen = <STDIN>;
print" Ab welcher Spaltennummer möchten Sie extrahieren ?";
$anfang = <STDIN>;
print" Wieviele Spaltennummern möchten Sie extrahieren ?";
$ende = <STDIN>;
open (input, "tab_sort.input");
open (output, ">tab_sort.out");
@lines =<input>;
print"\n";
for ($i=0; $i < $anz_zeilen; $i++)
{
@array1 = unpack("a$anfang a$ende", @lines[$i]);
# lösche erstes Element von @array1
shift(@array1);
# print " @array1\n";
foreach (@array1)
{
push(@summe,$_);
}
}
@col_summe = join("\n", split(/;/, @summe));
print @col_summe;
print output @summe;
close (input);
close (output);
1
2
3
4
5
6
7
8
9
10
11
#!/usr/bin/perl
use warnings;
use strict;
my @array = ("Gernot", "\n", "Havranek", "\n", "Havi");
print @array, "\n";
for (my $i = 0; $i <= $#array; $i++) {
$array[$i] =~ s%\n%;%g;
} # for
print @array;
|
|< 1 2 >| | |
15 Einträge, 2 Seiten |
Schrift
use strict; use warnings;
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
![[Powered by Battie]](/battie/img/powered.png)
