using perl to print 1 or 0

Shell Programming and Scripting
1

Suppose u have a file
FILE A
ABCA10 DIFF VALUES P203S POLY
ABCA1 DIFF VALUES A1046D
ABCA4 DIFF VALUES D846H POLY
ABCA4 DIFF VALUES I1846T POLY
ABCA4 DIFF VALUES Wa
ABCA4 DIFF VALUES WA
ABCA4 DIFF VALUES Wb

and u want to print that if FILE A have POLY so print 0 otherwise 1

means the output
0 ABCA10 DIFF VALUES P203S POLY
1 ABCA1 DIFF VALUES A1046D
0 ABCA4 DIFF VALUES D846H POLY
0 ABCA4 DIFF VALUES I1846T POLY
1 ABCA4 DIFF VALUES Wa
1 ABCA4 DIFF VALUES WA
1 ABCA4 DIFF VALUES Wb

written code

 #!/usr/bin/perl -w

open IN,"LIST_ALL_AWK";

$output_file="LABELS";

open OUT,">$output_file";

$line=<IN>;

 $identity=$line;
 @fields = split(/ /,$identity);
#print $fields[4]."\n";
if ($fields[4] =~m "POLY")
{
print   " 0 $line";
}
else
{
print "1 $line";

}

output showing is
0 ABCA10 DIFF VALUES P203S POLY

otherwise how to print this above output??

2

One way to do it:

$
$ cat -n myfile.txt
     1  ABCA10 DIFF VALUES P203S POLY
     2  ABCA1 DIFF VALUES A1046D
     3  ABCA4 DIFF VALUES D846H POLY
     4  ABCA4 DIFF VALUES Wb
     5  ABCA4 DIFF VALUES POLY E238
     6  ABCA5 DIFF VALUES A1223 poly
     7  ABCA6 DIFF VALUES Poly Y7789
$
$ # POLY only at the end ?
$
$ perl -ne '{print /POLY$/ ? 0 : 1," $_"}' myfile.txt
0 ABCA10 DIFF VALUES P203S POLY
1 ABCA1 DIFF VALUES A1046D
0 ABCA4 DIFF VALUES D846H POLY
1 ABCA4 DIFF VALUES Wb
1 ABCA4 DIFF VALUES POLY E238
1 ABCA5 DIFF VALUES A1223 poly
1 ABCA6 DIFF VALUES Poly Y7789
$
$ # POLY anywhere in the line ?
$
$ perl -ne '{print /.*POLY.*/ ? 0 : 1," $_"}' myfile.txt
0 ABCA10 DIFF VALUES P203S POLY
1 ABCA1 DIFF VALUES A1046D
0 ABCA4 DIFF VALUES D846H POLY
1 ABCA4 DIFF VALUES Wb
0 ABCA4 DIFF VALUES POLY E238
1 ABCA5 DIFF VALUES A1223 poly
1 ABCA6 DIFF VALUES Poly Y7789
$
$ # POLY only at the end and case insensitive ?
$
$ perl -ne '{print /POLY$/i ? 0 : 1," $_"}' myfile.txt
0 ABCA10 DIFF VALUES P203S POLY
1 ABCA1 DIFF VALUES A1046D
0 ABCA4 DIFF VALUES D846H POLY
1 ABCA4 DIFF VALUES Wb
1 ABCA4 DIFF VALUES POLY E238
0 ABCA5 DIFF VALUES A1223 poly
1 ABCA6 DIFF VALUES Poly Y7789
$
$ # POLY anywhere in the line and case insensitive ?
$
$ perl -ne '{print /.*POLY.*/i ? 0 : 1," $_"}' myfile.txt
0 ABCA10 DIFF VALUES P203S POLY
1 ABCA1 DIFF VALUES A1046D
0 ABCA4 DIFF VALUES D846H POLY
1 ABCA4 DIFF VALUES Wb
0 ABCA4 DIFF VALUES POLY E238
0 ABCA5 DIFF VALUES A1223 poly
0 ABCA6 DIFF VALUES Poly Y7789
$
$

HTH,
tyler_durden