如何在javascript中使用document.location.pathname中的相同功能 - 除了引用者？像document.referrer.pathname这样的东西？
谢谢.
有没有一种蛮力的方式来做到这一点？
#!/bin/ksh
THIS_SCRIPT=$(/usr/bin/readlink -f $(echo $0 | /bin/sed "s,^[^/],$PWD/&,"))
echo $THIS_SCRIPT
我坚持使用,ksh但更喜欢也适用的解决方案bash(我认为这样做).
我在这个路径名中做了什么奇怪的编码呢？
在我的文件管理器(Dolphin)中,路径名称看起来很好.
#!/usr/local/bin/perl
use warnings;
use 5.014;
use utf8;
use open qw( :encoding(UTF-8) :std );
use File::Find;
use Devel::Peek;
use Encode qw(decode);
my $string;
find( sub { $string = $File::Find::name }, 'Delibes, Léo' );
$string =~ s|Delibes,\ ||;
$string =~ s|\..*\z||;
my ( $s1, $s2 ) = split m|/|, $string, 2;
say Dump $s1;
say Dump $s2;
# SV = PV(0x824b50) at 0x9346d8
# REFCNT = 1
# FLAGS = (PADMY,POK,pPOK,UTF8)
# PV = 0x93da30 "L\303\251o"\0 [UTF8 "L\x{e9}o"]
# CUR …我目前正在使用以下代码来定位各个页面,例如http://my-website.com/about/
if (document.location.pathname == "/about/") {
//Code goes here
}
我想知道如何对具有某个父页面的所有页面执行相同的操作,例如/about/以下示例.
这是我的计算机安全课程的作业，所以我不需要具体的答案，但我想要一些建议，或者至少是总体方向，因为我已经绕了一段时间了。
基本上，我们有一个任务，给我们一个简单的 cgi 应用程序（用 perl 编写），该应用程序在某处存在漏洞，允许用户查看他们不应该查看的私有文件，例如 /etc/shadow。我们基本上必须证明我们可以攻击它并查看 /etc/shadow 文件。该应用程序是一个备忘录查看程序，允许用户编写和阅读备忘录。
现在，我对 Perl 还很陌生。很久以前，我确实在非常简单的网络内容中使用过它一两次，但这只是基础知识。
有问题的代码
#!/usr/bin/perl -w
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use strict;
my %labels; # global of pretty labels for memo pathnames
# glob through the homedirs for an array of paths to memos sorted by date
sub list_memo_selector {
my @memos = </home/*/memo/*>; # all regular users
push (@memos, </root/memo/*>); # special memos from root
foreach (@memos) {
$_ =~ m#^.+/([^/]+)$#; # regex extract filename
my $temp = …我不满意找到匹配字符串的文件,如下所示:
(remove-if-not (lambda (it)
(search "wildcard" (namestring it)))
(uiop:directory-files "./"))
;; I'll ignore case with str:contains?
;; https://github.com/vindarel/cl-str
如何用unix风格的通配符搜索文件？
如果它不是内置的,我会喜欢uiop的解决方案.也许有Osicat或cl-fad(它似乎不是这样,文档经常说"非野性路径名").
如果可以使用双通配符以递归方式遍历目录(./**/*.jpg),则可以获得奖励.
编辑:我已经试过的变种(directory #p"./**/*.jpg"),它返回nil :(也试过#p".*jpg",#p"./.*jpg"...
(wild-pathname-p (pathname "*.jpg"))
(:WILD :WILD-INFERIORS)
(make-pathname :name :wild :type "jpg")
#P"*.jpg"
以下通过jpg扩展获取文件,但它还不是一个合适的通配符:
(directory *)
(#P"/home/vince/cl-cookbook/AppendixA.jpg"
#P"/home/vince/cl-cookbook/AppendixB.jpg"
#P"/home/vince/cl-cookbook/AppendixC.jpg")
关于路径名的文档和make-pathname:http://gigamonkeys.com/book/files-and-file-io.html(没有提到通配符)
为什么我不能在TCL中这样做:
set path "|C:/Program Files/Example/My Program/prgrm.exe"
字符串路径将获取值:
"C:/Program".
但是,如果我删除空格,它将获得完整的路径...任何人有一个想法？
在Laravel我在我的控制器中使用此代码从目录中获取文件:
public function galleryImages($album) {
$images = File::allFiles('gallery/'.$album);
return View::make('galleryimages', ['images' => $images]);
}
在我的'galleryimages'视图中是:
@foreach($images as $image)
<img src="???"> <-- how to get file url here?
@endforeach
现在我如何获得$ image变量的pathName？$ image的var_dump正在返回:
object(Symfony\Component\Finder\SplFileInfo)#247 (4) {
["relativePath":"Symfony\Component\Finder\SplFileInfo":private]=> string(0) ""
["relativePathname":"Symfony\Component\Finder\SplFileInfo":private]=> string(11) "garden5.jpg"
["pathName":"SplFileInfo":private]=> string(25) "gallery/Album/garden5.jpg"
["fileName":"SplFileInfo":private]=> string(11) "garden5.jpg" }
我正在尝试$ image-> pathName,但它不起作用.
在 Lisp 中以独立于实现的方式移动文件的最佳方法是什么？例如我有一个图像文件：
(setq oldpath #P"SERVER:PICTURES;TEMP;PHOTO.PNG")
我想将它从 TEMP 目录移到 PICTURES 目录中。这似乎有效：
(setq newpath
(make-pathname
:host (pathname-host oldpath)
:directory (butlast (pathname-directory oldpath))
:name (pathname-name oldpath)
:type (pathname-type oldpath)))
(rename-file oldpath newpath)
但有更优雅的方式吗？
谢谢，大卫
我需要JS/jQuery中的路径名(www.my-site.com/ this-part/and-this-part/etc /),但我需要它作为字符串而不是对象.
换句话说,我需要$_SERVER['REQUEST_URI'];JS/jQuery.
我试过了:
var page_pathname = location.pathname;
var page_pathname = location.pathname + location.search;
var page_pathname = (location.pathname+location.search).substr(1);
我得到的所有console.log:
1. Object {error: Object}
2. Location {hash: "", search: "", pathname: "/my-cat/my-title/", port: "", hostname: "www.my-site.com"…}
我需要的是console.log:my-cat/my-title/