Shell Programming and Scripting

vbjr3:x:1007:1007:student users:/home/vbjr3:/bin/bash
dbhyt2:x:1008:1008:student users:/home/dbhyt2:/bin/bash
bbwe3:x:1009:1009:student users:/home/bbwe3:/bin/bash
abadt7:x:1010:1010:student users:/home/abadt7:/bin/bash
hascr3:x:1011:1011:student users:/home/hascr3:/bin/bash
pcgre2:x:1012:1012:student users:/home/pcgre2:/bin/bash
scscv21:x:1013:1013:student users:/home/scscv21:/bin/bash
sdasdm3:x:1014:1014:student users:/home/sdasdm3:/bin/bash

#!/usr/bin/perl

use strict;
use warnings;

my $user = shift or die "Usage: $0 <username>\n";

my $db = "/etc/passwd.bak";
my ($home, $shell);

open $fh, "<", "$db" or die "Could not open $db: $!\n";

while ( $account = <$fh> ) {
   ($home, $shell) = $account =~ m/$user:x:\d+:\d+:(.*)$/ and last;
}

close $fh;


if ( $home and $shell ) {
    print "Home Directory: $home\n";
    print "Shell Used: $shell\n";
}
else {
    print "Account $user not found\n";
}

#!/usr/bin/perl

use strict;
use warnings;

# fail if not argument is given
my $user = shift or die "Usage: $0 <username>\n";

# file path to use
my $db = "/etc/passwd.bak";
my ($home, $shell);

# open the db file for reading or end the program
open my $fh, "<", "$db" or die "Could not open $db: $!\n";

# read a line by line until it finds the user
while ( my $account = <$fh> ) {
   # extract account information if found and end loop
   ($home, $shell) = $account =~ m/$user:x:\d+:\d+:.*:(.*):(.*)$/ and last;
}

# dismiss the open file 
close $fh;

# condition to display results
if ( $home and $shell ) {
    print "Home Directory: $home\n";
    print "Shell Used: $shell\n";
}
else {
    print "Account $user not found\n";
}