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/\\/)
Leave a comment: