Πώς να χρησιμοποιήσετε Awk σε Perl

Awk είναι μια συνάρτηση χρησιμότητας Unix μπορείτε να χρησιμοποιήσετε για να εξαγάγετε τα δεδομένα για το φιλτράρισμα και την υποβολή εκθέσεων . Μια εντολή awk μπορεί να κληθεί απευθείας από τη γραμμή εντολών , ένα shell script ή ένα σενάριο Perl . Παρά το γεγονός ότι ένα σενάριο awk δεν μπορεί να γραφτεί απευθείας μέσα σε ένα script perl , μπορείτε να εκτελέσετε χρησιμοποιώντας μια κλήση συστήματος perl . Δύο άλλες εντολές , μπούφος και nawk , παρέχουν εναλλακτικές λύσεις σε awk που μπορούν να κληθούν από perl με τον ίδιο τρόπο . Οδηγίες
Η 1

Δημιουργία script perl σας με την οδηγία διερμηνέα εντοπισμό perl στο σύστημά σας . Αυτό είναι συνήθως " # ! /Usr /bin /perl " ή " # ! /Usr /local /bin /perl , " αλλά μπορεί να ποικίλλει ανάλογα με τις συγκεκριμένες παραμέτρους του συστήματός σας . 2

Εκτελέστε μια κλήση συστήματος perl χρησιμοποιώντας το σύστημα ( ) λειτουργία:

σύστημα ( " awk ' - awk script σας εδώ - « input_file.txt ")?

Τα πιρούνια λειτουργία του συστήματος η διαδικασία της awk . Script perl σας θα περιμένει την εντολή awk να τελειώσει πριν συνεχίσει την εκτέλεση .
Εικόνων 3

χαρακτήρες διαφυγής χρησιμοποιώντας μια ανάστροφη κάθετο στο σενάριο awk που perl μπορεί να ερμηνεύσει ως perl εντολές , όπως " $ " και εισαγωγικά . Η κλήση σας μπορεί να μοιάζει κάπως έτσι:

σύστημα ( " awk ' {print \\ $ 5, \\ " \\ t \\ " , \\ $ 6 } ' input_file.txt ")?

Αυτό awk script θα εκτυπώσει την πέμπτη και την έκτη στήλη του " input_file.txt " διαχωρίζονται με ένα χαρακτήρα tab .
Η
εικόνων