Use of uninitialized value in pattern match (m//)

Hi All,

When I executed the sort script its showing error, can please help me in this.

Line No: 39 if ($area_path =~ /reference_data\rates$/)
{
$file_directory = $area_path;
$file_directory_dest=$area_path . "\\reference_data\\sortrates";
} else {
Line No:44 $file_directory = $area_path . "\\reference_data\\rates";
Line No:45 $file_directory_dest=$area_path . "\\reference_data\\sortrates";

}

\Autonomy\TeamSite\iw-perl\bin>perl.exe d:\Autonomy\TeamSite\httpd\iw-bin\sort_rates.pl
Use of uninitialized value in pattern match (m//) at d:\Autonomy\TeamSite\httpd\iw-bin\sort_rates.pl line 39.
Use of uninitialized value in concatenation (.) or string at d:\Autonomy\TeamSite\httpd\iw-bin\sort_rates.pl line 44.
Use of uninitialized value in concatenation (.) or string at d:\Autonomy\TeamSite\httpd\iw-bin\sort_rates.pl line 45.
No such file or directory at d:\Autonomy\TeamSite\httpd\iw-bin\sort_rates.pl line 54.

Regards
Bhaskaran Govindan

Find more posts tagged with

Comments

Rick Poulin

Use of uninitialized value in pattern match (m//) at d:\Autonomy\TeamSite\httpd\iw-bin\sort_rates.pl line 39.

This is telling you that $area_path is undefined when line 39 is executed. That is probably why your line 54 is attempting to resolve a path that doesn't exist.

Adam Stoller

Also note:

Line No: 39
if ($area_path =~ /reference_data\rates$/)

The single back-slash in that line will be treated as the beginning of an escape-sequence, in this case, \r, which is a carriage return - and probably not what you are looking for - you either need to use double-back-slashes:

if ($area_path =~ /reference_data\\rates$/)

Or (better IMO) make sure to convert all such path separating backslashes into forward slashes, e.g.:

$area_path =~ tr|\\|/|;
if ($area_path =~ m|reference_data/rates$|)

Of course, if $area_path isn't properly defined (in all cases), then you may still get the error message you were seeing, but in the long run your code should end up much cleaner, easier to maintain and read (IMO).

bhas1234

i have tried, but i could not able to get the area path value, Please find the out below

workareaHello World
CGI

y:/reference_data/rates
area path
No such file or directory at d:\Autonomy\TeamSite\httpd\iw-bin\testing123.ipl li
ne 75.
username

Code Alos...

BEGIN { use TeamSite::Config;
my $iwhome = TeamSite::Config::iwgethome();
push @INC,"$iwhome\\custom\\";
push @INC,"D:\\custom\\";
}

use CMF::Common qw(:all);
use TeamSite::CGI_lite;
use TeamSite::Config;
use HTML::ExtAtt;

my $iwhome = GetIWHome;

my $workarea = $ENV{IW_WORKAREA}; # define workarea variable

## substitutes \ for /, in whole string. everything between | and |.
$workarea =~ s|\\|/|go;
$area_path = $workarea;

if ($area_path =~ /reference_data\/rates$/)
{
$file_directory = "y:" . $area_path;
} else {
$file_directory = "y:" . $area_path . "\/reference_data\/rates";
}

Adam Stoller

You clearly need to learn how to communicate in the forums, and it would appear that you need to learn Perl and how to use it within TeamSite:

i have tried, but i could not able to get the area path value, Please find the out below

workareaHello World
CGI

y:/reference_data/rates
area path
No such file or directory at d:\Autonomy\TeamSite\httpd\iw-bin\testing123.ipl li
ne 75.
username

Since the code you posted contains no print statements, and no clear way for us to determine the line numbers - there's no way for us to make sense of the above.

Code Alos...

BEGIN { use TeamSite::Config;
my $iwhome = TeamSite::Config::iwgethome();
push @INC,"$iwhome\\custom\\";
push @INC,"D:\\custom\\";
}

You should put all custom perl modules in IWHOME/iw-perl/site/lib/ - which then avoids all the above

use CMF::Common qw(:all);
use TeamSite::CGI_lite;
use TeamSite::Config;
use HTML::ExtAtt;

my $iwhome = GetIWHome;

Since we don't have the code for your custom CMF::Common module, we have no way of knowing what GetIWHome does or how it does it. Presumably it does something like:

(my $iwhome = TeamSite::Config::iwgethome()) =~ tr|\\|/|;
return $iwhome

but that's clearly just a guess (and based on the code shown, probably wrong)

my $workarea = $ENV{IW_WORKAREA}; # define workarea variable

You've provided us absolutely no context to understand where/how/when this code is to be run, so we have to assume that it's being run in a context wherein the IW_WORKAREA environment is defined - but based upon the issues you appear to be having, that could be an incorrect assumption.

## substitutes \ for /, in whole string. everything between | and |.
$workarea =~ s|\\|/|go;
$area_path = $workarea;

Why go to the trouble of defining both $workarea and $area_path? Also - why use s|\\|/|go instead of tr|\\|/|? (but that's a minor nit)

if ($area_path =~ /reference_data\/rates$/)
{
$file_directory = "y:" . $area_path;
} else {
$file_directory = "y:" . $area_path . "\/reference_data\/rates";
}

Several things are wrong or questionable in the above code - you should be trying to write code that is clean and clear, not cluttered and difficult to understand. The above would be much better written as:

my $iwmount = $TeamSite::Config::iwgetmount();
if ($area_path =~ m|/reference_data/rates$|) {
    $file_directory = "$iwmount$area_path";
}
else {
    $file_directory = "$iwmount$area_path/reference_data/rates";
}

There are several other similar ways that it could be written which also would be clearer than the original posted code, however, there are assumptions being made about the values that you're testing which are (a) not being stated, and (b) may potentially be erroneous.

I suggest you spend a bit more time learning Perl (O'Reilly books), learning TeamSite (product manuals / training classes), learning how to use Perl in TeamSite (lots of forum posts), and learning how to clearly communicate what you are doing, why you are doing it, how you are doing it, and what's happening - in order to get the most value out of the forums. Alternatively, hire someone who already has the requisite skill sets - they'll get the work done for you quickly, and may be able to train you in a 1:1 environment too.