Új hozzászólás Aktív témák

• #54 Mijo tag Cyno #53

  Új Válasz 2013-11-18 12:03:21 #54

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Mijo

  tag

  válasz Cyno #53 üzenetére

  Szia!

  Javaslom a non capturing groupot: (?:pattern)

  Üdv: Mijo

  #!/usr/bin/perl
  use strict;
  use warnings;
  
  my @tests = (
  '#0546NNN124:CH/FT0/FM2 RS ok',
  '#0546NNN124:CH/FT2 RS ok',
  );
  
  for my $test ( @tests ) {
  if ( $test =~ m!^
  (\#0546NNN124:CH/FT\d+
  (?:/FM\d+)?
  )
  \s+
  RS
  \s+
  (\S+)
  \s*
  $!ix
  ) {
  print "Match: code=[".$1."] status=[".$2."]\n";
  } else {
  print "No match: [". $test ."]\n";
  }
  }

  ./test.pl
  Match: code=[0546NNN124:CH/FT0/FM2] status=[ok]
  Match: code=[0546NNN124:CH/FT2] status=[ok]

Új hozzászólás Aktív témák