when clone git repo from http or git protocol ，it will create directory in user_home; egg: git-clone-helper.pl https://github.com/github/fetch , clone into directory /home/me/code/github.com/github/fetch

git-clone-helper.pl

#!/usr/bin/env perl
use feature qw(say);

$num_args =  $#ARGV + 1;
if ($num_args < 1) {
  print "usage: git-clone url" ;
  exit
}

$addr = $ARGV[0];

if ( $addr =~ /(?:http:\/\/|https:\/\/|git@)([^:\/]+)(?:\/|:)([^:\/]+)\/([^:\/\.]+)(.git)?/ ) {
   my $url=$1;
   my $dir1=$2;
   my $dir2=$3;
   chdir;
   mkdir "code";
   chdir "code";
   mkdir $url;
   chdir $url;
   mkdir $dir1;
   chdir $dir1;
   say `pwd`;
   say "git clone $addr";
   `git clone $addr`;
}