Shell Programming and Scripting

 
#!/bin/bash
clear
 
read -p "Please enter a word: " str1
 
strLength=${#str1}

for ((i=1;i<=$strLength;i++)){
        echo $str1 | cut -c$i
}
 
#must use REG-EX  ^[0-9]$
#incorporate into an IF/ELSE statement

$ cat infile
Is th1s 0k?
I hop3 s0
$ cat script.pl
use strict;
use warnings;
use autodie;

@ARGV == 1 or die "Usage: perl $0 input-file\n";
open my $fh, "<", $ARGV[0];
my @chars;

while ( <$fh> ) {
    chomp;
    @chars = split //;
    foreach ( @chars ) {
        if ( /[[:digit:]]/ ) {
            print "DIGIT: ", $_, "\n";    
        } elsif ( /[[:space:]]/ ) {
            next;
        } else {
            print "LETTER: ", $_, "\n";
        }
    }
}
    
close $fh;
$ perl script.pl infile
LETTER: I
LETTER: s
LETTER: t
LETTER: h
DIGIT: 1
LETTER: s
DIGIT: 0
LETTER: k
LETTER: ?
LETTER: I
LETTER: h
LETTER: o
LETTER: p
DIGIT: 3
LETTER: s
DIGIT: 0

#!/bin/bash
clear

read -p "Please enter a word: " str1

strLength=${#str1}

for ((i=1;i<=$strLength;i++)){
      VAR=$(echo $str1 | cut -c$i)
      case $VAR in
         [0-9])      echo "digit: $VAR";;
         [A-Za-z])   echo "alpha: $VAR";;
      esac
}

exit 0

              An additional binary operator, =~, is available, with the same precedence as == and !=.  When it is used, the string to the right of  the
              operator  is  considered  an  extended  regular expression and matched accordingly (as in regex(3)).  The return value is 0 if the string
              matches the pattern, and 1 otherwise.  If the regular expression is syntactically incorrect, the conditional expression's return value is ...