如何把一個字符串分解成單個字符

hewangping

如題

ly5066113

perl -e '$_ = "abcdefg"; s/(.)/$1\n/g; print'

caining062

perl -e '$_ = "how are you 2008";s/ *(\S)/$1\n/g;print'

[ 本帖最后由 caining062 于 2008-8-27 16:58 編輯 ]

fengc

split //, "abcdef"

forlorngenius

unpack   

hewangping

多謝樓上諸位。仔細(xì)google了一下，轉(zhuǎn)一篇http://www.perlmeme.org/faqs/man ... ing_characters.html的文章總結(jié)一下
Solution 1: split

If you pass no seperator into split, it will split on every character:

   

1. #!/usr/bin/perl
   
2.     use strict;
   
3.     use warnings;
   
4. 
   
5.     my $string = "Hello, how are you?";
   
6. 
   
7.     my @chars = split("", $string);
   
8. 
   
9.     print "First character: $chars[0]\n";

復(fù)制代碼

The output of this program is:

    First character: H

Solution 2: substr

You can access an individual character using substr:

   

1. #!/usr/bin/perl
   
2.     use strict;
   
3.     use warnings;
   
4. 
   
5.     my $string = "Hello, how are you?";
   
6.     my $char = substr($string, 7, 1);
   
7. 
   
8.     print "Char is: $char\n";

復(fù)制代碼

The above code would output:

    Char is: h

Solution 3: Unpack

Like substr, if you want a character from a particular position, you can use unpack:

   

1. #!/usr/bin/perl
   
2.     use strict;
   
3.     use warnings;
   
4. 
   
5.     my $string = "Hello, how are you?";
   
6.     my $char = unpack("x9a1", $string);
   
7. 
   
8.     print "Char is: $char\n";

復(fù)制代碼

The output of this program is:

    Char is: w

Solution 4: substr and map

If you want to access all the characters individually, you can build them into an array (like Solution 1) using substr and map:

   

1. #!/usr/bin/perl
   
2.     use strict;
   
3.     use warnings;
   
4. 
   
5.     my $string = "Hello, how are you?";
   
6.     my @chars = map substr( $string, $_, 1), 0 .. length($string) -1;
   
7. 
   
8.     print "First char is: " . $chars[0] . "\n";
   
9. 
   
10.     exit 0;
    

復(fù)制代碼

The output of this example would be:

    First char is: H

Solution 5: Regular expression

You can use a regular expression to build an array of chars:

   

1. #!/usr/bin/perl
   
2.     use strict;
   
3.     use warnings;
   
4. 
   
5.     my $string = "Hello, how are you?";
   
6.     my @chars = $string =~ /./sg;
   
7. 
   
8.     print "Fourth char: " . $chars[3] . "\n";
   
9. 
   
10.     exit 0;

復(fù)制代碼

The output of this program is:

    Fourth char: l

Solution 6: unpack

unpack can also unpack individual chars into an array:

  

1. #!/usr/bin/perl
   
2.     use strict;
   
3.     use warnings;
   
4. 
   
5.     my $string = "Hello, how are you?";
   
6.     my @chars = unpack 'a' x length $string, $string;
   
7. 
   
8.     print "Eighth char: $chars[7]\n";
   
9. 
   
10.     exit 0;

復(fù)制代碼

The output would be:

    Eighth char: h

See also

    perldoc -f split
    perldoc -f substr
    perldoc -f pack
    perldoc -f unpack

forlorngenius

google 得力量是強(qiáng)大得

cobrawgl

there is more than one way to do it