robertkrimen / path-abstract
watch download tarball
public
Forks0Right
Watchers1Right
Description:
Homepage:
Clone URL: git://github.com/robertkrimen/path-abstract.git
path-abstract / scratch / pre-0.093-behavior
100755 12 lines (8 sloc) 0.171 kb
raw blame history 
1
2
3
4
5
6
7
8
9
10
11
12

#!/usr/bin/perl -w
 
use strict;
use warnings;
 
use JSON;
my $json = JSON->new->pretty;
 
my @list;
@list = split m/(?<!^)\//, '/a/b/c/';
print $json->encode(\@list), "\n";