1 2 3 4
#!/usr/bin/perl my $i=0; printf("Argument %d: %s\n", ++$i,shift) while @ARGV;
1
2
3
4
5
6
7
8
9
10
11
12
function meinbefehl {
# Ein Array namens Harry ;)
local harry = ();
# fuelle den ersten
${harry[0]} = 'Array ist H mit Indx 0';
# fuelle den dritten
${harry[2]} = 'H-Indx-2';
# gib Harry komplett zurück
echo ${harry[@]};
}
1
2
3
4
5
6
7
8
# PS1="\$? prompt \$ "
0 prompt $ function foo() {
echo "foo";
return 1;
}
0 prompt $ foo
foo
1 prompt $