Shell Programming and Scripting

hi, ý'm studying on unix myself. I tried some codes, but it doesnt work and I cant find the error. The codes ;
#!/bin/bash
# fileinfo.sh

FILES="/var/mail"


for file in $FILES
{

if [ ! -e "$file" ] # Check if file exists.
then
echo "$file does not exist."; echo
continue
fi

ls -l $file | awk '{if ($5>50000) print $9 }' >sonuc
}

open(DOSYA, "sonuc");
@veriler = <DOSYA>;
close(DOSYA);

foreach $dongu (@veriler) {
($isim) = split (/ /, $dongu);
print $isim;

}

exit;

Well, there's other stuff, but for starters try FILES=`ls /var/mail`

Oh, and you can remove the continue command in the foreach loop, since it's not really doing anything at the end of the loop...

I did your recommendation,oombera,but it didnt work.
The first error ;

./deneme.pl: syntax error near unexpexted token 'open(DOSYA,'
./deneme.pl 'open(DOSYA, "sonuc.txt");'

Unless you're worried about the files disappearing in middle of running this script, I don't think you need to check to make sure they exist. I use KSH, but I think this should work:

Code:

ls -l "/var/mail" | awk '{if ($5>50000) print $9}'

I don't know if this is actually what your goal was in the other script.. it just displays the name of any file over 50000 bytes. This may be reduced too much ... instead of just displaying the names using awk, why did you redirect to a file and then print the file to the screen?

The bit starting at open(DOSYA, "sonuc"); and the brace following print $isim; appears to be in Perl rather than bash.

Disclaimer: I am not a bash expert.

But the Perl bit can be executed by changing your code thus:

Code:

#!/bin/bash 
# fileinfo.sh

FILES="/var/mail" 

for file in $FILES
{

    if [ ! -e "$file" ] # Check if file exists.
    then
        echo "$file does not exist."; echo
        continue 
    fi

    ls -l $file | awk '{if ($5>50000) print $9 }' >sonuc
}

perl -lne 'open(DOSYA, "sonuc");
    @veriler = <DOSYA>;
    close(DOSYA);

    foreach $dongu (@veriler) {
        ($isim) = split (/ /, $dongu);
        print $isim;

    }'

exit;

But the whole thing would be easier using Perl (or Ruby) end to end rather than mixing and matching commands in the shell.

I changed code like this ;

-------------------------------------------------------------------------------
#!usr/local/bin/perl
# fileinfo.sh

FILES="/var/mail"


for file in $FILES
do

if [ ! -e "$file" ] # Check if file exists.
then
echo "$file does not exist."; echo
continue
fi

ls -l $file | awk '{if ($5>50000) print $9 }' >sonuc
done

perl -lne 'open(DOSYA, "sonuc");
@veriler = <DOSYA>;
close(DOSYA);

foreach $dongu (@veriler) {
($isim) = split (/ /, $dongu);
print $isim;

}'

exit 0;

-------------------------------------------------------------------------

my goal is to send mail to a person whose mail size is over 50000 bytes. now, I just try ýf the file (sonuc) can be open and read or not. But now I have another problem, it works but, I must push enter key two times,and when the program finished, it dosent leave.
for ending program,I must do 'Ctrl+d' .
what can I do???..
My aim is that I want to do this program on perl...

hi, I did some changes on my program, here is the code;

-----------------------------------------------------------------------
#!usr/bin/perl
# fileinfo.sh

FILES="/var/mail"


for file in $FILES
do

if [ ! -e "$file" ] # Check if file exists.
then
echo "$file does not exist.";
fi

ls -l $file | awk '{if ($5>50000) print $9 }' >sonuc
done

perl -lne 'open(DOSYA, "sonuc");
@veriler = <DOSYA>;
close(DOSYA);

foreach $dongu (@veriler) {
($name) = split (/ /, $dongu);

$adress="$name@yahoo.com";
$sendmail="/usr/bin/sendmail";
{
open (MAIL, "|sendmail");
print MAIL "From\:sender\n";
print MAIL "To\:$adress\n";
print MAIL "Subject\:Your mail ....\n";
print MAIL "Please ...\n";
close (MAIL);
}
}'

exit 0

----------------------------------------------------------------

but mail doesnt go to person. What can I do???..