#!/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/\\/)
@list = "C:\username\Sources" foreach $arrchar (@list) { print "array char = $arrchar"; if($_ = /\\/) { print "\nfound one \n"; }
Leave a comment: