creating log file with content from HTTP post/responce

[alexsts2013]

Hi,
can someone lend a hand or idea how to create log file in specific location from following:

 
#!/usr/bin/perl
use LWP::UserAgent;
use File::Slurp;
use warnings;
use strict;
 
my $ua = LWP::UserAgent->new;
$ua->timeout(10);
 
my ($second, $minute, $hour, $dayOfMonth, $month, $yearOffset, $dayOfWeek, $dayOfYear, $daylightSavings) = localtime();
my $current_year = (localtime)[5] + 1900; 
my $current_month = sprintf( "%02d", $month + 1 );
my $current_day = sprintf( "%02d", $dayOfMonth);
my $date = "123" . $current_year . $current_month . $current_day;
 
 
my $url = "http://somesite.com/cgi-bin/upload.cgi";
 
my $file = "D:/inputfile" . $current_year .$current_month . $current_day . ".xml";
my %args;
my $field_name = "filename";
my $buf ;
my $buf_ref = $args{'buf'} || \$buf ;
 
 
my $value = read_file( $file , binmode => ':raw' , scalar_ref => 1 );
 
my $response = $ua->post( $url,
            Content_Type => 'form-data',
            Content => [ $field_name => ["$file"] ]
            );
print $response->content;
 
 
 

Basically I need to place content of "$response" into log file and write it in specific location.
Unfortunately all attempt to read it failing. I could read it in C#, but since cgi does not work well with C# I had to use Perl and in Perl I am a newbie...
Any help will be appreciated.
Thanks.

[numberwhun]

A log file is simply a file. You can read about handling files here: http://www.perlfect.com/articles/perlfile.shtml

You could also employ a module like Log::Simplest.

How you handle logs is completely up to you, but you'll have to ensure that failures are caught and necessary items happen, otherwise a log entry is made.

Regards,

Jeff