--- Kaustav Bhattacharya <[EMAIL PROTECTED]> wrote:
> I have an array populated with data, I want to dump its content to
> file but
> my following code is not writing any data out! HELP:
>
> sub wanted {
> @FILES = ();
> if ( $File::Find::name =~ /_boot\.js$/ )
> {
> push @FILES, "$File::Find::name\n";
> }
>
> print (@FILES);
>
> open(BOOT_FILES,">boot_files.txt");
looks okay at first cursory glance....
try adding to the line above: or die $!;
and maybe opening it append, >> instead of >.
Could you be calling the function later with no value and blasting
previous output?
> print BOOT_FILES @FILES;
> close BOOT_FILES;
> }
>
>
> Kaustav
>
__________________________________________________
Do You Yahoo!?
Yahoo! Auctions - buy the things you want at great prices
http://auctions.yahoo.com/
