Hey Gregor,
I use something similar on my box (I use qmail too). This should do what you
want it to.
#!/usr/bin/perl -w
use strict;
my @users = qw/ donna maria karina /;
foreach my $line (@user){
open OUT, ">/path/to/dir/.qmail-$line" or die "$!";
print OUT "|/usr/local/blah ./$line/maildir/filter";
close OUT or die "$!";
}
Regards,
Luke Davison
----- Original Message -----
From: "GREGOR" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, March 20, 2002 9:55 PM
Subject: creating file name from array
> hi guys,
>
> I'm very new to perl.
>
> Ok, let's assume that I have a file named *user.txt* contained with my
user
> name :
>
> donna
> maria
> karina
> ..
> ..
> ..
> etc
>
> I want to make a file for each of them. The file name and the content
should
> contained with their names, eg. .qmail-donna, .qmail-maria and
> ..qmail-karina.
>
> so far, here's my code : (which isn't working)
>
> #!/usr/bin/perl
>
> $file="user.txt";
> open FILE,$file;
> @user=<FILE>;
> close FILE;
>
> foreach $lines (@user){
> system "echo |/usr/local/blah ./$lines/maildir/filter >
..qmail-$lines";
> }
>
> please help me to make the right code. thank you.
>
> regards,
> Gregor
>
>
> WATCHOUT! 3RD INTERNATIONAL SEMINAR ON SUSTAINABLE ENVIRONTMENTAL
> ARCHITECTURE + DIGITAL ARCHITECTURE, 9-10 MARCH 2002, YOGYAKARTA
> http://senvar.virtue.nu or http://senvar.uajy.web.id
> NATIONAL DESIGN COMPETITION
> http://senvar.uajy.web.id/lombadesain
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
