Reinstalling list of GEMs on a new server

#!/usr/bin/perl -w

# We're strict

use strict;

# Get list of installed gems

my @gems = qx(gem list);

chomp(@gems);

# Create commands

foreach my $gem (@gems)

{

# Match gem and versions

$gem =~ m/(S+)s((.+))/i;

# Gem name

$gem = $1;

# Save them into array

my @gem_versions = split(/,/, $2);

# Print out commands

foreach (@gem_versions)

{

# Remove all whitespaces

$_ =~ s/^s+//;

print "gem install $gem --version=$_n";

}

perl gems_install_list.pl