比方我用pwd目前的路徑為
/home/hepha/firefox
用df看是掛載點

df |awk '{print $6}'|sed '1d'|sed '/^\/$/d'

/lib/init/rw
/proc
/sys
/var/run
/var/lock
/dev
/dev/shm
/dev/pts
/sys/fs/fuse/connections
/lib/modules/2.6.28-14-generic/volatile
/d1
/d2
/fish
/home
/iso
/live
/proc/bus/usb
/sys/kernel/security
/proc/sys/fs/binfmt_misc
/home/hepha/.gvfs
/media/disk

那我的路徑如何不顯示/home，使其成為/hepha/firefox，在用echo顯示？
謝謝

試試這個 script：

#!/usr/bin/perl
use strict;
use warnings;

my $length = 0;
my $cwd = $ENV{'PWD'} . '/';
open MOUNTS, q{ df | awk '{print $6}' | };
while (<MOUNTS>) {
    chomp;
    $length = length if
        $cwd =~ /^$_\// and
        $length < length;
}
substr($cwd, -1) = "\n";

print substr($cwd, $length);

p.s.
改了應該有七八次了吧……
潔癖 ;-p

可以用！
那在問一下可以指定路徑嗎？
謝謝

我不太明白「指定路徑」的意思。

可以給個例子嗎？

hepha 寫到：
可以用！
那在問一下可以指定路徑嗎？
謝謝

Mozzenior 寫到：
我不太明白「指定路徑」的意思。

可以給個例子嗎？

./cc /home/hepha/user
就程式後面代參數，你原本的只是讀取執行程式的位置

看不懂你們再說什麼耶
可以說明一下嗎？

把 script 改成底下這樣。有參數時會針對參數進行 strip，否則就拿現在的工作目錄來進行 strip。

#!/usr/bin/perl
use strict;
use warnings;

my $mounts = GetMounts();
if (0 == @ARGV) {
    print StripMount("$ENV{'PWD'}/", $mounts);
}
else {
    foreach (@ARGV) {
        print StripMount("$_/", $mounts);
    }
}

sub GetMounts {
    my @mounts;
    open MOUNTS, q{ df | awk '{print $6}' | };
    while (<MOUNTS>) {
        chomp;
        push @mounts, "$_" if $_;
    }
    close MOUNTS;
    return \@mounts;
}

sub StripMount {
    my ($cwd, $mounts) = (shift, shift);
    my $length = 0;
    foreach (@$mounts) {
        $length = length if
            $cwd =~ /^$_\// and
            $length < length;
    }
    substr($cwd, -1) = "\n";
    return substr($cwd, $length);
}

Aitjcize 寫到：
看不懂你們再說什麼耶
可以說明一下嗎？

就把有掛載的路徑去掉
你在終端機打df可以看到掛載點
df
檔案系統 大小 已用 可用 已用% 掛載點
/dev/sda6 15G 3.9G 11G 28% /
tmpfs 1007M 0 1007M 0% /lib/init/rw
proc 0 0 0 - /proc
sysfs 0 0 0 - /sys
varrun 1007M 324K 1007M 1% /var/run
varlock 1007M 0 1007M 0% /var/lock
udev 1007M 180K 1007M 1% /dev
tmpfs 1007M 540K 1007M 1% /dev/shm
devpts 0 0 0 - /dev/pts
fusectl 0 0 0 - /sys/fs/fuse/connections
lrm 1007M 2.2M 1005M 1% /lib/modules/2.6.28-14-generic/volatile
/dev/sda10 68G 180M 65G 1% /d1
/dev/sda11 65G 1.1G 61G 2% /d2
/dev/sda3 107G 29G 74G 28% /fish
/dev/sda7 30G 3.2G 26G 12% /home
/dev/sda5 20G 4.2G 15G 23% /iso
/dev/sda9 12G 158M 11G 2% /live
none 0 0 0 - /proc/bus/usb
securityfs 0 0 0 - /sys/kernel/security
binfmt_misc 0 0 0 - /proc/sys/fs/binfmt_misc
gvfs-fuse-daemon 0 0 0 - /home/hepha/.gvfs
/dev/sdb2 90G 2.3G 83G 3% /media/disk
比方/home/hepha/iso/我不要他的掛載點，他不是真實的路徑，/dev/sda7為根目錄掛載到/home，/hepha/iso/是實際路徑。
不知道聽的懂嗎XD解釋蠻爛的

Mozzenior 寫到：
把 script 改成底下這樣。有參數時會針對參數進行 strip，否則就拿現在的工作目錄來進行 strip。

成功！感謝！

剛好第十篇！YEAH！

不客氣 :D