test.pl

linux下网络编程的函数

#!/usr/bin/perl

use strict;
my $dir = "/usr/local/FileTransfer/Server/files/log/88/logMerge/channel/date/aa.txt";
my $folderName ;
	my @path =split( /\//,$dir);
	for(my $i=0;$i<@path-3;$i++)
	{
			$folderName .=  "$path[$i]/";
	}
print "$folderName\n";