Πρόβλημα στην Perl

[BozGNR]

Καλησπέρα, έχω ένα πρόβλημα στην περλ και θα ήθελα τη βοήθεια σας. Να διευκρινίσω ότι είμαι αρχάριος' αλλά κάνω τις προσπάθειες μου!

 

ζητούμενο είναι να κάνω σπλιτ σε μία αλληλουχία χαρακτήρων ανα τρία γράμματα και να τα αποθηκεύσω σε ένα array(@char εν προκειμένω). Οπότε έγραψα αυτό τον κώδικα..

 

#!/usr/bin/perl-w

 

while($line=<STDIN>)

{

while($line=~/(\w\w\w)/)

{@char=$1;

$line=$';}

 

foreach $el(@char)

{print "$el \n";}

}

 

παρ' όλα αυτά αποτυγχάνει και μου δίνει μόνο την τελευταία τριπλέτα, σα να μην αποθηκεύει στο array τις προηγούμενες..

 

έχει κανείς καμιά ιδέα τι πάει στραβά; ευχαριστώ πολύ..

 

---------- Προσθήκη στις 23:49 ---------- Προηγούμενο μήνυμα στις 22:06 ----------

 

ok, λύθηκε με τη βοήθεια μίας φίλης' thanx για όσους το διαβάσατε