Shell Programming and Scripting

# FS="my-box23/account"
# zfs list -t filesystem -H | cut -f1 |egrep "^ZP[01]pool1/$FS$"
ZP0pool1/my-box23/account

#!/bin/perl -w
my $FS="my-box23/account";
my @zfs_get = `zfs list -t filesystem -H | cut -f1 | egrep "^ZP[01]pool1/$FS$"`;
print "zfs get equals $zfs_get[0]\n";


# ./test.pl 
Use of uninitialized value in concatenation (.) or string at ./test.pl line 4.
zfs get equals
#

#!/bin/perl -w
my $FS="my-box23/account";
my @zfs_get = `zfs list -t filesystem -H | grep $FS | cut -f1 `;
print "zfs get equals $zfs_get[0]\n";


# ./test.pl 
Use of uninitialized value in concatenation (.) or string at ./test.pl line 4.
zfs get equals ZP0pool1/my-box23/account
#

my @zfs_get = grep { |^ZP[01]pool1/$FS$| } map { my @a=split /\s/; $a[0] } `zfs list -t filesystem -H`;

#!/bin/perl -w
my $FS = "my-box23/account";
my @zfs_get = grep { |^ZP[01]pool1/$FS$| } map { my @a=split /\s/; $a[0] } `zfs list -t filesystem -H`;
print "zfs get equals $zfs_get[0]\n";

# ./test2.pl
Bareword found where operator expected at ./test2.pl line 3, near "]pool1"
        (Missing operator before pool1?)
Scalar found where operator expected at ./test2.pl line 3, near "$FS$|"
        (Missing operator before $|?)
syntax error at ./test2.pl line 3, near "{ |"
Execution of ./test2.pl aborted due to compilation errors.

grep { |^ZP[01]pool1/$FS$| }

grep { /^ZP[01]pool1\/$FS$/ }