#!/usr/bin/perl -w use strict; use warnings; my $SAMPLE = "Hello World\r\n"; my $MATCHALL = "ooreH\r\n"; my $SAMPLE_LENGTH = length($SAMPLE); $SAMPLE =~ s/[\Q$MATCHALL\E]{1}//g; if (length($SAMPLE) == $SAMPLE_LENGTH - length($MATCHALL)) { print "\nCONTAINS ALL THE CHARACTERS\n"; } else { print "\nDOES NOT CONTAIN ALL THE CHARACTERS\n"; } exit;
In reply to Re^3: string containing characters
by harangzsolt33
in thread string containing characters
by IvanH
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |