SCSS Compiler!

compile-sass.pl

#!/usr/bin/perl
use warnings;
use strict;
my %updated;
sub compile_scss {
  # Get our list of files
  my @files = <./scss/*.scss>;
  # Do nothing if there aren't even any files
  return 0 if(!@files);
  # Make sure we even have sass available to us.
  die "sass command not found! Install Sass!" if(!`which sass`);
  # println("SCSS");
  # Make our css directory if it's not there already.
  mkdir("./css") if(!-e "./css");
  # Iterate through our scss files.
  for(@files) {
    my $filename; ($filename = $_) =~ s/.*\/(.*?).[^\.]+?$/$1/g;
    # Skip files prefixed with _, I use those for importing!
    next if($filename =~ /^_/i);
		my $time = (stat($_))[9];
    next if(($updated{$_}) && ($updated{$_} == $time));
    $updated{$_} = $time;
    print "Compiling $filename - $time\n";
    system("sass --scss --sourcemap=none $_ ./css/$filename.css");
  }
  return 1;
}
while(sleep(1)) { compile_scss(); }