Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:
Hi Monks,
I am having trouble with searching for a string with special characters.
When I have texts without 'brackets' in the SFile, I get the required result but it fails if I want to search for a string with 'brackets'. Could someone help me or point to some documentation? Thanks.
#! /path/to/perl use strict; open (MAINFILE, "./TestFile") or die "Can't find file"; open (SFILE, "./SFile") or die "Can't find file"; my $search; while (<SFILE>) { $search = $_; print "search string is $search"; } close ( SFILE ); print "Now opening the main file\n"; while (<MAINFILE>) { if ( ! /$search/ ) { print "No Match found\n"; next; } else { print "Found $search in main file"; } } TestFile: Bus Bus(Mini) Car Van SFile: Bus(Mini)
Back to
Seekers of Perl Wisdom