Help for this page

Select Code to Download


  1. or download this
    18:05 >perl -MData::Dump -wE "my $s = 'Hello1234world!5678How9012are34
+56you?'; my @w = split /[0-9]{4}/, $s; dd \@w;"
["Hello", "world!", "How", "are", "you?"]

18:06 >
  2. or download this
    open(my $CFILE, '<', 'config.txt') or die "Couldn't open file 'config.
+txt' for reading: $!";
$readline = <$CFILE>;
@words = $readline =~ /([0-9]{4})/g;
  3. or download this
    18:06 >perl -MData::Dump -wE "my $s = 'Hello1234world!5678How9012are34
+56you?'; my @w = $s =~ /([0-9]{4})/g; dd \@w;"
[1234, 5678, 9012, 3456]

18:18 >