Perl scripting

[nikosNik]

καλησπερα
εχω ενα shell script που ελεγχει στην εισοδο αν ο χρηστης δινει παραμετρους.(καποιο script)
αν ναι τοτε να αποθηκευει καθε καθε φορα την γραμμη αυτου του script :

Κώδικας: Επιλογή όλων

#!/bin/sh

if [ -z $1 ]; then                                 
        echo "Usage: ./script <filename>"           
        exit 1
elif [ -f "$1" ]; then
        fname="$1"
fi

output="output.txt"                               
i=0                                               

while read a;                                                       
do                                               

  i=$((i+1))
                                                                                                   
     num=$a                                     
   
   
    echo "$a" | sed 's/$/_'$num'/' >> "$output"   

done < "$fname"

Τωρα θελω να φτιάξω ενα perl αρχειο οπου θα τυπωνετε καθε φορα τη γραμμη απο το shell script.
καμια ιδέα?
ευχαριστώ!

[evolgen]

Μεταφέρθηκε στην κατάλληλη ενότητα

Καλωσόρισες στο φόρουμ της Ελληνικής Κοινότητας του Ubuntu (Ubuntu-gr)!

!

Μήνυμα ενημέρωσης προς τον/την nikosNik Σε παρακαλούμε να διαβάσεις τις οδηγίες προς νεοεισερχόμενους προσεκτικά. Είναι σημαντική η προσάρτηση της υπογραφής με τα χαρακτηριστικά του υπολογιστή σου hardware id (πχ [10ec:8168]), έτσι ώστε να δίνονται συγκεκριμένες πληροφορίες όταν πρόκειται για επίλυση ενός προβλήματός σου. Οι αλλαγές μπορούν να γίνουν από τον πίνακα ελέγχου αλλά και με το αυτόματο script που θα το βρεις παρακάτω. Αυτόματο script υπογραφής

Στο θέμα μας τώρα. Δεν έχω καταλάβει τι ακριβώς προσπαθείς να γράψεις σε Perl. α) Θέλεις να ξαναγράψεις το shell script σε Perl; β) Ένα Perl script που θα εκτελεί το shell script και θα τυπώνει την εντολή στην έξοδο; Αν θέλεις, εξήγησέ το λίγο καλύτερα.

Κάποια καλά resources για εκμάθηση Perl (στα αγγλικά) είναι τα εξής: 1 2 3