Как работает 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.
Последняя линия.

Не удалось найти несуществующее субэндир
Текущий инструмент: '_block14' PC 29 (Eval_1: 0)
Вызов из Sub '! Unit_start' PC 1163 (src/glue/run.pir: 20)
Вызовов из sub 'perl6; pct; hllcompiler; eval' pc -1 ((неизвестный файл): -1)
Вызван из Sub 'Perl6; PCT; HllCompiler; EvallileS' PC 1303 (компиляторы/PCT/SRC/PCT/HllCompiler.PIR: 707)
Вызов из sub 'perl6; pct; hllcompiler; command_line' pc 1489 (компиляторы/pct/src/pct/hllcompiler.pir: 794)
Вызван из Sub 'Perl6; Perl6; Compiler; 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. Установочные веб-шаблоны: http://blogs.technet.com/b/praveenh/archive/2013/04/04/get-a-list-of-web-templates-and-ids-in- A-SharePoint-сайт.aspx

Использование пользовательского шаблона AS {GUID} #templateName https://stackoverflow.com/questions/3240967/ SharePoint-2010-Create-Site-From-Code-United-Custom-Site-Template

Список доступных пользовательских шаблонов с использованием CSOM: http://yeshagagrawal.blogspot.in/ 2013/06 / SharePoint-2013-Get-All-сайт-шаблоны .html

языковые коды (если установлены языковые пакеты): http://technet.microsoft.com/en-us/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