aduitsis · February 18, 2015 14:41 · Feb 18, 2015
diff --git a/passwd2puppet.pl b/passwd2puppet.pl
@@ -0,0 +1,28 @@
+#!/usr/local/bin/perl -w
+
+use v5.16;
+use strict;
+use warnings;
+
+
+while(<>) { 
+        chomp;
+        my ( $username, $password, $uid, $gid, $class, $change, $expire, $gecos, $home, $shell ) = split ':' // die "cannot parse $_";
+
+        my $group  = getgrgid($gid) // die "error, group-id $gid cannot be found in this system";
+
+        say <<EOM
+user { '$username':
+        ensure      => present,
+        password    => '$password',
+        home        => '$home',
+        shell       => '$shell',
+        comment     => '$gecos',
+        uid         => $uid,
+        gid         => '$group',
+        managehome  => true,
+}
+EOM
+
+
+}