![my $ra = Regexp::Assemble->new;
$ra->add( 'ab+c' );
$ra->add( 'ab+-' );
$ra->add( 'awd+' );
$ra->add( 'ad+' );
print $ra->re; # prints a(?:w?d+|b+[-c])
2011 2 19](https://image.slidesharecdn.com/cpan-hokkaidopm-4-110219003834-phpapp01/85/CPAN-29-320.jpg)
ʴ/⥸`
- 1. 2011 2 19
- 2. 2011 2 19
- 3. 2011 2 19
- 4. 2011 2 19
- 5. 2011 2 19
- 6. 2011 2 19
- 7. 2011 2 19
- 8. 2011 2 19
- 9. 2011 2 19
- 10. 2011 2 19
- 11. 2011 2 19
- 12. 2011 2 19
- 13. 2011 2 19
- 14. 2011 2 19
- 15. +------+ +------+ | hoge | --> | fuga | +------+ +------+ 2011 2 19
- 16. +---------+-----------+ | name | twitter | +---------+-----------+ | ysasaki | aloelight | +---------+-----------+ 2011 2 19
- 17. 2011 2 19
- 18. 2011 2 19
- 19. 2011 2 19
- 20. 2011 2 19
- 21. 2011 2 19
- 22. 2011 2 19
- 23. 2011 2 19
- 24. 2011 2 19
- 25. 2011 2 19
- 26. 2011 2 19
- 27. 2011 2 19
- 28. 2011 2 19
- 29. my $ra = Regexp::Assemble->new; $ra->add( 'ab+c' ); $ra->add( 'ab+-' ); $ra->add( 'awd+' ); $ra->add( 'ad+' ); print $ra->re; # prints a(?:w?d+|b+[-c]) 2011 2 19
- 30. 2011 2 19
- 31. 2011 2 19
- 32. 2011 2 19