Как совместить «/ *» в регулярном выражении?

Question

$stuff = "d:/learning/perl/tmp.txt"; 

open STUFF, $stuff or die "Cannot open $stuff for read :$!"; 
while (<STUFF>) { 
    my($line) = $_; # Good practice to always strip the trailing 
    chomp($line); 
    my @values = split(' ', $line); 

    foreach my $val (@values) { 

     if ($val == 1){ 
      print "1 found";  
     } 
     elsif ($val =~ /hello/){ 
      print "hello found";  
     } 
     elsif ($val =~ /"/*"/){ # I don't know how to handle here. 
      print "/* found";  
     } 
     print "\n"; 
    } 
} 

Мои tmp.txt:

/* CheerStone ColdStunner 

1 Cheer Rock 

hello Boo Pedigree 

Как обрабатывать последовательность символов /* в моем коде?

Answer 1

Оба персонажа имеют особое значение в регулярном выражении Perl, поэтому вы должны их избежать с помощью обратной косой черты:

$val =~ /\/\*/ 

Btw, вы, вероятно, следует добавить ^ перед всеми регулярными выражениями, потому что вы, кажется, хотят для обработки только текста в начале строки.

Answer 2

* - специальный символ. Таким образом, вы должны избавиться от нее:

m{/\*} 

Как Adam Bellaire предложил, вот краткое объяснение:

Пикет-ограждения лучше избегать. Для этого иногда должны использоваться разделители, отличные от /. m должен предшествовать первому разделителю при использовании таких разделителей. Если в качестве первого разделителя используется какой-либо из скобок, в качестве ограничителя конца следует использовать соответствующую закрывающую скобу.

Answer 3

Существуют различные способы метасимволов метаданных без мета. В вашем случае вам нужно обработать символ, который является разделителем по умолчанию, а также метасимволом.

• В случае символа-ограничителя, который вы хотите быть буквенный символ, вы можете избежать этого персонажа с \, хотя вы можете получить leaning toothpick syndrome:

  m/\/usr\/local\/perls/; 
  

• Вы можете изменить разделитель :

  m(/usr/local/perl); 
  

• Вы можете избежать мета-символы таким же образом:

  m(/usr/local/perl\*); 
  

• Если вы хотите часть вашего шаблона, чтобы быть только буквальные символы, вы можете использовать \Q автоматически избежать их для вас:

  m(\Q/usr/local/perl*); 
  

• Если вы хотите меньшую часть вашего рисунка будет только буквальные символы, вы можете использовать \Q затем выключить его \E:

  m(/usr/local/perl\Q*+?\E/); 
  

• \Q действительно то же самое, что и quotemeta. Положив шаблон в переменную, то интерполяционный его в операторе сопоставления также решает проблему разделителей:

  my $pattern = quotemeta('/usr/local/perl*+?/'); 
  m/$pattern/;