Shell scripting and perl

[Nikolas92]

Καλησπερα,

Προσπαθω να υλοποιησω με scriptakia αυτο

Δηλαδη να σε ενα shell script να δεχομαι μια σειρα απο arg να τα αποθηκευω και μετα να τα κανω read

Απο ενα αρχειο perl.To shell script θελω να το φτιαξω ετσι ωστε να αποθηκευτε καθε φορα μια μια γραμμη αφου αποθηκευετε εκει μετα να γινετε read απο το perl κ.οκ(δηλαδη να διαβαζετε η πρωτη,η δευτερη κτλ)

Το shell script το εχω φτιαξει δεν ξερω πως να το κανω συνδεση με perl

#!/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                                     

  

   

 

done < "$fname"

 

τωρα δεν ξερω και αν ειναι 100% σωστο απλα καποιος που ξέρει απο scripting να μου δωσει λιγο τα φώτα

ευχαριστώ

[stevvie]

Θέλεις δηλαδή να διαβάσεις κάθε γραμμή απο το αρχείο που πήρες σαν όρισμα, να την αποθηκεύσεις στο output και μετά να το διαβάσεις απο το perl script?

#!/usr/bin/bash

if [ -z $1 ]; then
    echo "Usage: $0 <filename>"
    exit 1
elif [ ! -f "$1" ]; then
    echo "File $1 doesn't exist"
    exit 2
fi

output="output.txt"

while read a;
do
    echo "$a" > $output
    #call perl script
done < "$1"

[egoeimai1]

Χρησιμοποίησε την awk

[Nikolas92]

 

Θέλεις δηλαδή να διαβάσεις κάθε γραμμή απο το αρχείο που πήρες σαν όρισμα, να την αποθηκεύσεις στο output και μετά να το διαβάσεις απο το perl script?

#!/usr/bin/bash

if [ -z $1 ]; then
    echo "Usage: $0 <filename>"
    exit 1
elif [ ! -f "$1" ]; then
    echo "File $1 doesn't exist"
    exit 2
fi

output="output.txt"

while read a;
do
    echo "$a" > $output
    #call perl script
done < "$1"

nai!