Wyrażenie matematyczne w postaci skryptu Perl (7)

Przykładowy skrypt napisany w języku Perl, który wyr. regularne : znajduje słowo zaczynające się 3 spółgłoskami

Treść założeń:
wyr. regularne : znajduje słowo zaczynające się 3 spółgłoskami


?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#!D:/Perl/bin/perl
open(PLIK,"plik.txt");
@linie = <plik>;
foreach $l(@linie)
{
  $l =~ s|\n| |;
  $w .= $l;
}
@t = split(/ /,$w);
foreach $slowo(@t)
{
  if($slowo =~ /^[bcćdfghjklłmnńprsœtwzŸż]{3}/)
  {
    print $slowo,"\n";
  }
}
 
 
</plik>

Zobacz również

Dział: 
Perl
Tagi: 
Programowanie
Perl
Skrypty
Matematyka w programowaniu
Wyrażenia regularne