How can I convert my shell script to Perl? [closed]

by

You should visit http://perlmaven.com/ (available in many languages) or http://learn.perl.org/ to learn some Perl first.

Your shell script doesn’t need to copy the commandline values. You also used #!usr/bin/bash which won’t work because the path is either /usr/bin/bash or (more common) /bin/bash:

#!/bin/bash
createviewset ccm -b $1 -t $2
source setenv $2
rest of the code

Perl assigns all command line arguments to the array @ARGV. This sample prints your two arguments:

#!/usr/bin/perl
print $ARGV[0];
print $ARGV[1];

Notice that the numbering starts with 0 instead of 1 as in $1 in your bash script.

Next part is running external (shell) commands in Perl: Use the system command.

#!/usr/bin/perl
use strict;
use warnings;

system 'createviewset','ccm','-b',$ARGV[0],'-t',$ARGV[1];
system 'source','setenv',$ARGV[1];

Notice that the source command won’t work because a Perl script is not a shell script and can’t “include” Bash script. I appreciate that you’re trying to use Perl for your problem, but it looks like Bash is the much better tool for this.

More Related Contents:

  1. How can I match values in one file to ranges from another?
  2. Perl: Compare 2 hash table values
  3. search using perl one liner within a file [closed]
  4. how to use multiple IP’s in perl script
  5. How can I use a variable as a variable name in Perl?
  6. How can I use a new Perl module without install permissions?
  7. How do I remove duplicate items from an array in Perl?
  8. When should I use the & to call a Perl subroutine?
  9. What’s the difference between my ($variableName) and my $variableName in Perl?
  10. How can I hook into Perl’s print?
  11. How can I generate all permutations of an array in Perl?
  12. How can I combine hashes in Perl?
  13. Why do my Perl tests fail with use encoding ‘utf8’?
  14. How can I install CPAN modules locally without root access (DynaLoader.pm line 229 error)?
  15. What is the difference between my and local in Perl?
  16. Why does my Perl script exit with 137?
  17. Perl read line by line
  18. What is the difference between Perl’s ( or, and ) and ( ||, && ) short-circuit operators?
  19. How do I change, delete, or insert a line in a file, or append to the beginning of a file in Perl?
  20. What exactly does Perl’s “bless” do?
  21. How can I install a specific version of a set of Perl modules?
  22. Obtain a switch/case behaviour in Perl 5
  23. How do I extract the domain out of an URL?
  24. How do I use symbolic references in Perl?
  25. Why does $foo->{bar} autovivify but %$foo doesn’t?
  26. Which framework should I use to write modules? [closed]
  27. How do I capture Perl’s STDOUT in a variable?
  28. Is object oriented exception handling in Perl worth it?
  29. How can I check whether my Perl installation is 32 or 64 bit?
  30. How can I take screenshots of webpages with Perl?

Leave a Comment