Help for this page

Select Code to Download


  1. or download this
    /(?<=\p{Alpha}),(?=\p{Alpha})/
  2. or download this
    while( $line =~ /,/g ) {
    print "Matched a comma.\n";
}
  3. or download this
    while( $line =~ m/(?:^|,)"([\p{Alpha}\s]+)"(?=,|$)/g ) {
    print "$1\n";
}
  4. or download this
    print "$_\n" for $line =~ m/(?:^|,)"([\p{Alpha}\s]+)"(?=,|$)/g;