not pattern

[MattJ83]

Quick question
if i was to write code to match a /pattern/ but then wanted the script
to exit if it didn't find the pattern is it as simple as (!/pattern/) ?


Code:
{
if (/word/)
{
print "$_\n";
$info = $_;
} elsif /!word/ { exit; } # ????

Thanks

 

[David Squire]

if i was to write code to match a /pattern/ but then wanted the script
to exit if it didn't find the pattern is it as simple as (!/pattern/) ?

Yes, but that is not what you have written below.

Code:
{
if (/word/)
{
print "$_\n";
$info = $_;
} elsif /!word/ { exit; } # ????

First, you don't need an 'elsif', you just want an 'else' since your
second test is (meant to be) just the negation of the first. Secondly,
you need the ! (not) to be outside the pattern. Please try out your code
before posting it.

The example below illustrates these points.

----#!/usr/bin/perl

use strict;
use warnings;

while (<DATA>) {
print;
if (!/g/) {
print "\tNo 'g'\n";
}
else {
print "\tContains 'g'\n";
}
}


__DATA__
cat
dog
frog
bird

----

Output:

cat
No 'g'
dog
Contains 'g'
frog
Contains 'g'
bird
No 'g'