diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-02-02 21:54:49 +0000 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-02-02 21:54:49 +0000 |
| commit | ff289dff5f994a5b437fe45e0513b2cad8d34f17 (patch) | |
| tree | 30a41cfec745b3605e7bac9bbc0e4a7a227c2683 /challenge-045 | |
| parent | ed0d1f37b4ec793436cb8601897d00ce4ef77ce6 (diff) | |
| download | perlweeklychallenge-club-ff289dff5f994a5b437fe45e0513b2cad8d34f17.tar.gz perlweeklychallenge-club-ff289dff5f994a5b437fe45e0513b2cad8d34f17.tar.bz2 perlweeklychallenge-club-ff289dff5f994a5b437fe45e0513b2cad8d34f17.zip | |
- Added solution by Cheok Yin Fung.
Diffstat (limited to 'challenge-045')
| -rw-r--r-- | challenge-045/cheok-yin-fung/perl/ch-1.pl | 63 |
1 files changed, 63 insertions, 0 deletions
diff --git a/challenge-045/cheok-yin-fung/perl/ch-1.pl b/challenge-045/cheok-yin-fung/perl/ch-1.pl new file mode 100644 index 0000000000..c97f7aaef7 --- /dev/null +++ b/challenge-045/cheok-yin-fung/perl/ch-1.pl @@ -0,0 +1,63 @@ +#!/usr/bin/perl
+use strict;
+use integer;
+
+my $i = 0;
+
+my $msg;
+
+chomp($msg = <STDIN>);
+
+$msg = lc($msg);
+
+$msg =~ s/\s//g; # &removespace($_);
+$msg =~ s/\t//g;
+
+# print $msg, "\n"; #TESTING
+
+my $i = 0;
+
+my $j = 0;
+
+my @a;
+
+#ADD WHITESPACE AT THE END SUCH THAT THE LINE HAS 8n CHARACTERS
+my $copyoflengthofmsg = length($msg);
+$msg .= " " x ($copyoflengthofmsg % 8);
+
+my $numberofcols = 8;
+
+foreach my $char (split //, $msg) { #Thanks Perl Cookboo
+ $a[$i][$j] = $char;
+ $copyoflengthofmsg++;
+ $j++;
+ if ($j==$numberofcols) {$j = 0; $i++;}
+}
+
+my @b;
+my $p;
+
+
+#TESTING
+#for $i (0..7) {
+# for $j (0..$numberofcols) {
+# $b[$p] = $a[$i][$j];
+# print $b[$p];
+# $p++;
+# }
+# print "\n"; #print " ";
+#}
+#print "---\n";
+
+
+$p = 0;
+for $j (0..$numberofcols) {
+ for $i (0..7) {
+ $b[$p] = $a[$i][$j];
+ if ($b[$p] ne " ") {print $b[$p];}
+ $p++;
+ }
+ print " ";
+}
+
+
|