search for '\' in PERL

[kumeperl]

Hello All,
i am new to perl programming. i am trying to write a program to find number of occurence of '\' in an array [file path]. I tried the follwing code,

 
@list = "C:\username\Sources"
 
foreach $arrchar (@list)
{
   print "array char = $arrchar";
   if($_ = /\\/)
               {
                    print "\nfound one \n";
               }
}
 

but it was not working, i mean it is not printng "found one".

but errors = 0

please excuse my ignorance if my code is wrong.
Reading the manual is confusing me further.. can anyone please help me with the code?

Thanks,
Kumeperl

[miller]

Check out perlfaq4 - How can I count the number of occurrences of a substring within a string:

use strict;
use warnings;
 
my @list = "C:\\username\\Sources";
 
for my $arrchar (@list) {
    print "array element = $arrchar";
    my $slashes = () = $arrchar =~ /\\/g;
    if ($slashes) {
        print "\nfound $slashes\n";
    }
}
 

- Miller

[numberwhun]

Just to get what you had pasted working needed some changes, as well as the wonderful addition that Miller made. You really should reference a Perl Regex tutorial. Also, please "use strict;" and "use warnings;". If you had, you would have been informed of the errors that Perl found in execution.

 
#!/usr/bin/perl
 
use strict;
use warnings;
 
my @list = 'C:\username\Sources';
 
foreach my $arrchar (@list)
{
   print "array char = $arrchar";
   if($arrchar =~ m/\\/)
               {
                    print "\nfound one \n";
               }
}
 

[kumeperl]

Thanks for your fast response. after taking your suggestions i did the following changes in code

#!/usr/bin/perl -w
 
use strict;
use warnings;
 
my $count;
my @list = 'C:\username\Sources';
 
chomp @list;
#print OUTPTR "$_\n" foreach @list;
foreach my $arrchar (@list)
{
   print "array char = $arrchar";
   if($arrchar =~ m/\\/)
               {
                    print "\nfound one \n";
                    $count += 1;
               }
   else
   {
      print"\n i am in else \n"
   }
}
print "value of count = $count";
 
 

the result is

array char = C:\username\Sources

found one

value of count = 1

i am expecting count = 2. again i am not sure why it is not working properly.
regards,

kumeperl

[RonB]

#!/usr/bin/perl
 
use strict;
use warnings;
 
my $str = 'C:\username\Sources';
 
# this is the most efficient
my $count = ($str =~ tr/\\//);
print "count is $count\n";
 
# or you could do this
my $cnt = () = $str =~ /\\/g;
print "count is $cnt\n";

[miller]

kumeperl,

Look at my earlier post and link to perlfaq4. You're currently only testing for the existence of a slash in the string, not for the exact count.

- Miller