Suchen:

$ perl -e 'require 5.009001'
Perl v5.9.1 required--this is only v5.8.7, stopped at -e line 1.

http://www.w3.org/Library/

man bc oder
man dc


a1=3
a2=5
a3=5
a4=7
BC="zahl=$a1 * 1000 + $a2 * 100 + $a3 * 10 + $a4 * 1
zahl"

echo a/b | awk -F/ '{print $2 "/" $1}'
b/a


Oder was meinst du?

Hier uebergibst du eine Referenz auf ein Array.



Diese Referenz steht nun im ersten element des Arrays @subarray

Die willst wohl eher


my @subarray=@$_[0];

#/bin/sh
set -e
...

Das Problem liegt nicht bei awk, sondern an den Quotingmechanismus deiner Shell.


awk '{gsub("'\\''ftp","ftp");print $0}' file1 > file2

sollte funktionieren. Der Trick Singlequote schliessen,...

Useless use of wc -l :)

grep -c text inputfile.txt

useless use of backticks:


for DIR in $ALL_DIRS2


versuchs mal mit find und einer while schleife:


find "$ROOT_PATH" -type d | while IFS= read DIR

sed 's/<\/a>.*//i'

Wenn es nicht allzu kompliziert ist, sollte Term::Cap ausreichend sein.

perldoc Term::Cap

Weil du da "|[0-9]):" drin hast, das matched auf "7:"

zu 1.

Wenn es Portabel sein soll:



printf 'line1\nline2' file


oder

sub x {
my $arg = defined($_[0]) ? $_[0] : $_;
print "$arg\n";
}

$_="abc";
x();
x("def");

Mal so als Ansatz:



#!/usr/bin/perl

use Data::Dumper;

@x = map { $_->[0] }
sort { $a->[1] <=> $b->[1] || $a->[2] <=> $b->[2] }

Wenn es keine reply-to-zeile gibt, dann ist das $rep_add nicht initialisiert.



my $rep_add = ""


statt

Portabel ist:



sed 's/<BR>/\
/'