Opendir如何在Perl 6中工作？

StackOverflow https://stackoverflow.com/questions/2343214

  •  23-09-2019
  •  | 
  •  

题

有人可以告诉我，为什么“ opendir”不起作用？

#!/usr/bin/env perl6
use v6;

my $file = 'Dokumente/test_file';

if ( my $fh = open $file, :r ) {
    for $fh.lines -> $line {
    say $line;
    }
} else {
    say "Could not open '$file'";
}


my $dir = 'Dokumente';

my $dh = opendir $dir err die "Could not open $dir: $!";

输出：

你好世界！
第2行。
最后一行。

找不到不存在的子和opendir
当前乐器：'_block14'PC 29（eval_1：0）
从sub'！unit_start'PC 1163（src/glue/run.pir.pir：20）称为
从sub'perl6; pct; hllcompiler; eval'pc -1（（未知文件）： - 1）
从sub'perl6; pct; hllCompiler; evalfiles'PC 1303（compilers/pct/src/pct/hllcompiler.pir：707）
从sub'perl6; pct; hllcompiler; command_line'pc 1489（compilers/pct/src/pct/hllcompiler.pir：794）
从sub'perl6; perl6;编译器; main'pc -1（（未知文件）： - 1）

有帮助吗？

解决方案 

Web web = clientContext.Web;
var subWebInfo = new WebCreationInformation
{
    Description = "",
    Language = 1033,
    Title = "Sub Site",
    Url = "subsite",
    UseSamePermissionsAsParentSite = true,
    WebTemplate = "STS#0"
};
Web subWeb = web.Webs.Add(subWebInfo);
clientContext.Load(subWeb);
clientContext.ExecuteQuery();
.

也在不指定webtemplate的情况下工作。 开箱即用的Web模板： http://blogs.technet.com/b/praveenh/archive/2013/04/04/get-a-list-of-web-templates-andsids-in- a-sharepoint-site.aspx

使用自定义模板作为{guid} #templatename https：//stackoverflow.com/questions/3240967/ SharePoint -2010-Create-site-from-Code-Fivuss-Subpt-site-template

使用CSOM列出可用的自定义模板： http://yeshagrawal.blogs.in/in/ 2013/06 / sharepoint-2013-get-all-site-templates.html

语言代码（如果已安装语言包）： http://technet.microsoft.com/technet.microsoft.com/technet/library/ff463597。 aspx

其他提示

现在解决了。

问题是只有一个用户的个人网站。我删除了个人网站并强迫它重新创建，现在用户是网站集管理。

我不知道为什么问题发生了，但其他用户的个人网站没有问题。用户将成为他个人网站的网站集管理员的事实帮助我解决了问题。

我没有perl 6，但是看来您正在错误地调用Opendir。这个Perl片段对我有用：

my $dh;
opendir $dh, '/home/ar' or die 'Could not open directory';
许可以下： CC-BY-SA 和 归因
不隶属于 StackOverflow
scroll top