fork download
copy 
  1. use strict;
  2. use warnings;
  3. use utf8;
  4. binmode STDIN, ':encoding(cp932)';
  5. binmode STDOUT, ':encoding(cp932)';
  6. binmode STDERR, ':encoding(cp932)';
  7.  
  8. my $str = "abde+gdcba";
  9.  
  10. print "対象:$str¥n";
  11.  
  12. if ($str =~ /de+f/){
  13.   print "de+fにマッチします¥n";
  14. }else{
  15.   print "de+fにマッチしません¥n";
  16. }
  17.  
  18. if ($str =~ /de+g/){
  19.   print "de+gにマッチします¥n";
  20. }else{
  21.   print "de+gにマッチしません¥n";
  22. }
Success #stdin #stdout 0.04s 10240KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
�Ώ�:abde+gdcba\nde+f�Ƀ}�b�`���܂���\nde+g�Ƀ}�b�`���܂���\n
https://ideone.com/JfPpN6
language:
Perl (perl 5.28.1)
created:
1 year ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!