Find a word after splitting a string : Split « String « Perl






  1. Perl
  2. String
  3. Split

Find a word after splitting a string

      



#!/usr/bin/perl -w

use strict;

my $found = 0;
$_ = "A aA AaA aAa AA aa... '";

my $sought = "aA";

foreach my $word (split) {
    if ($word eq $sought) {
        $found = 1;
        last;
    }
}

if ($found) {
    print "found\n";
}








Related examples in the same category

1.Split string into separate words, and then test to see if each word is the one we're looking for.
2.Split up
3.Split words
4.A simple word-count program.
5.Using split function to split a string
6.Split string with ','
7.Keeping the separators by having them in parentheses.