Shell Programming and Scripting

Hi All,

Below I am discussing the problem I am facing while using pattern matching in Unix & Window. Plz hv a look into it.
================
my $s="UPDATE A
SET s="klkkk'
;" ;

if ( $s =~ m/^[ ]*UPDATE[ ]+/i )
{
print $s;
}
else
{ print "no match";}
===================

Both should be working as same and you can see it works also.
But I found pattern matching sometimes behaves differently while copying or transfering the data from window to unix and vice-versa.

So main problem is may be due to transfering ...
But since we can't avoid that can we make some change in our script so that it will work same in any platform.

May be some some hidden character is creating the probelm.
Have you faced the samething???

Please reply and also suggest to avoid such problem.

you can use unix2dos

unix2dos is used for converting unix format to dos format. Here we can identify that by seeing the line break(^M).

But in my case it is not showing any special character in UNIX os. Just the matching is failing... Yes here I am running in Unix machine.

i mean do a unix2dos (or an editor in windows that can convert files from unix to dos) on your script. then run the script again

Yea, could be that the windows line ending \r\n is interferring with the match when the windows file is searched using a perl script on a Unix machine, which will think line endings are only \n.

IF I read it correctly, you have embedded a newline in the quoted string. If you copy the script to Windows, you will have to re-edit the file on Windows to include \r

For portability:
In other words, you need two versions of the string, one with ^M, one without ^M, if you want portable code. Then your code has to figure out which one to employ in the search.

Thanks KevinADC & jim mcnamara !

Actually I am reading a dbscript file which contains the SQL statements like "SELECT emp_id FROM EMPLOYEE......;" , " UPDATE ..........;" etc including the other comments & unrelated things. I want to get get those queries using pattern matching.

like:
$count= 0;
while ( my $line = <FH0>)
{
if ($line =~ m/^[ ]*UPDATE[ ]+/i)
{
print "UPDATE----line no.= $line_no:\n----\n\n$line\n";
$line_no=$count++;
}
}

=======

In the above script I m checking the lines those are starting with the SQL keywords. Though it is working with the other lines correctly but failing for some lines like
"UPDATE ABCD....". (all I checked in UNIX os)

When I coping the exact query in Window os & tested this it failing again. But strange thing is that when I am writing the same thing with out copying, then pattern matching is successful both in unix and window.

So, I concluded that may be there is some problem while reading the file where I am searching the sql statements by pattern matching. May be some corrupt or invisible characters.

Did u get me? Why it is happening...? Anyway to avoid such things..?