AWK, Perl?? Ich habe ein AWK-Kommandozeile. Ich weiß nicht, wie Sie es in ein Perl-Skript

Mein AWK Befehl:

awk'BEGIN {count=0} {count=count+($3-$2)} END {print count}' zebrafish

Wie verwende ich es in ein Perl-Skript?

Ich sehe keine Notwendigkeit der Verwendung von awk in perl. Die gleiche Funktionalität implementiert werden kann, die vollständig innerhalb von perl. Bitte überprüfen Sie meine Lösung
Sie können konvertieren Sie ein awk-Skript ein perl-Skript unter Verwendung der standard-a2p-Programm.
Man könnte verkürzt auch Ihre awk: awk '{count+=($3-$2)} END {print count}'

InformationsquelleAutor user2923577 | 2013-10-26

Schreibe einen Kommentar