从字符串中的倒数第二个斜杠中删除引号

时间:2017-10-23 09:14:38

标签: regex perl

例如,我有一个

的字符串
/..../.../hello/hi/bye/try.pl

有什么方法可以删除第二个斜杠字符中的所有引号?我想要获得这个返回字符串

/..../.../hello/hi/

我希望能够使用正则表达式解决方案来解决这个问题。

2 个答案:

答案 0 :(得分:2)

根据您的输入和所需的输出,我猜你在谈论路径部分,而不是引号。

<android.support.design.widget.TextInputEditText
                        style="@style/Text_input_EditText"
                        android:hint="Enter S/o , D/o , W/o *"
                        android:inputType="textCapCharacters"
                        android:digits="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ "
                        android:maxLength="100"
                        android:id="@+id/do_ad_so_do_wo"
                        />

那应该有用。它匹配字符串的末尾(“$”),然后查找两个不包含斜杠的字符串,它们之间有斜杠。

答案 1 :(得分:1)

如果您正在使用文件系统,最好使用Perl附带的标准模块。

my $path = '/some/path/hello/hi/bye/try.pl';
print "Original : $path\n";

use File::Basename;
print 'via File::Basename dirname : ', dirname( dirname( $path )), "\n";

use File::Spec::Functions qw( :ALL );
my @path = splitdir( $path );
print 'via File::Spec::Functions splitdir : ', catdir( @path[ 0 .. $#path-2 ] ), "\n";