Need help about UNDEF function?

[johnperl]

Hi,

I have a question about the perl 'undef' function. I am using it to read all line at once in once string. In the same script i am using sftp to transfer the file created by the script which uses undef. Now undef is not allowing me to pick the file created on local server and transfer it to another local server. Is there any way to close this undef function?

I would appreciate help

Thank you in advance
john

[numberwhun]

Can you post your code so we can see what you are doing? It would be a lot more helpful that way.

Regards,

Jeff

[KevinADC]

the undef() function can not transfer files so your question makes no sense. As Jeff asked, post the code otherwise there is no way for anyone to help you.

[johnperl]

the undef() function can not transfer files so your question makes no sense. As Jeff asked, post the code otherwise there is no way for anyone to help you.

Sorry to post it little but got the answer as below. I was using undef $/ instead of local $/ = undef, which was creating problem coz the loop was still open. now its fine. Thanks

our $reqfile = $_[0];
 
open (FILEHANDLE, "<$reqfile") or die ("can't open file"); 
open (FILE, ">$data_dir$file[0]") or die "Cannot create the file: $!";
 
 local $/ = undef;  
 
#  put the entire content of the file into one variable 
   $file1 = readline(FILEHANDLE);
 
#  Put entire batch from Trigger to Extraction in an array
   @a = ($file1 =~ m/\{TRIGGER\}.*?\{EXTRACTION\}/smg);
 
#  Print the column headers
   print FILE '"Extraction","HIS-FREQ","DATATYPES","RMG_NO_DATATYPE","NUM_OF_SERIES_COL","RMG_COLS"';