Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re: string comparison

by monarch (Priest)
on May 27, 2005 at 07:12 UTC ( #460964=note: print w/replies, xml ) Need Help??


in reply to string comparison

It appears that you want to know if all the elements in one string are in the other.

Assumptions: the following strings will match:
- "cake,cake,patty", "cake,patty,cake"
- "bread,water", "water,bread"
The following strings won't match:
- "cake,cake,patty", "patty,cake"
- "brad,water", "water,bread"

# check_strings - takes two parameters, returns true if same sub check_strings( $ $ ) { # arguments my ( $string1, $string2 ) = @_; my @elements1 = sort split(',',$string1); my @elements2 = sort split(',',$string2); if ( scalar(@elements1) <=> scalar(@elements2) ) { return( undef ); # differing number of elements } for ( my $i = 0; $i < scalar(@elements1); $i++ ) { if ( $elements1[$i] cmp $elements2[$i] ) { return( undef ); # element differs } } return( 1 ); # elements are all the same }

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://460964]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (4)
As of 2023-02-06 12:16 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I prefer not to run the latest version of Perl because:







    Results (34 votes). Check out past polls.

    Notices?